Как решить этот «баг» с циклом и массивом?

Question

[Di Da]

program test;
var
c,i,n:integer;
t:string;
testdata:array[1..5,1..5] of string;
Begin
Writeln('1 - Создать тест');
Writeln('2 - Тесты');
write('Мой выбор: ');
read(c);
Case c of
1:
begin
n:=1;
i:=1;
writeln('');
while i<5 do
begin
write(n,' вопрос: ');
readln(testdata[1,n]);
write('А)');
readln(testdata[2,n]);
i:=i+1;
n:=n+1;
end;
end;

end;
End.

В колледже дали задание сделать тест, вот сама программа(его начало). Она выводит:
1 вопрос: 2 вопрос:
Ввод данных.

Но мне нужно ввести вопрос, варианты, а она тупит если использовать в read именно массив. Вы все поймете если выполните эту программу.

Answer 1

[Alexyz Canson]

возможно вы ошиблись командой read - команда для чтения файла

ReadLn(S);
WriteLn('Вы ввели : ', S);