Загадка с циклом for-in loop при вводе в массив значений из консол - Pascal

Формулировка задачи:

Здравствуйте! При создании массива из 30 элементов с типом String и при последующем, входе в цикл for-in loop для ввода значений из консоли в массив c[], ввод сразу же прекращается. Испробовал различные варианты написания, но результат тот же.

VAR
c:array [1..30] of String;
i,N:integer;
 
begin
writeln('MAX VAL MASSIV X:'); 
read(N);
 
for i:=1 to N do //Цикл ввода в массив значений.
    begin
    writeln('CITY ',i,'NAME'); read(c[i]);
    end;
 
end.

Решение задачи: «Загадка с циклом for-in loop при вводе в массив значений из консол»

textual
                            Листинг программы 
                        

                            var c:array [1..30] of string;
    i,n:integer;
begin
repeat
write('Введите размер массива от 1 до 30 n=');
readln(n);
until n in [1..30];
writeln('Введите ',n,' названий городов');
for i:=1 to n do
 begin
  write('Город ',i,': ');
  readln(c[i]);
 end;
writeln('Список городов');
for i:=1 to n do
writeln(c[i])
end.
                        