Не могу решить задачку по Pascal

вот пример использования ЗАПИСИ
type zap=record
name : string[10];
min, max,cena : integer;
end;
var
n,i,fl:integer;
assort: array[1..100] of zap;

uses crt;
var a,b: array [1..20] of string;
i: integer;
begin
writeln('Внесите данные о городах и клубах');
for i:=1 to 20 do
begin
write('Название ',i,' клуба: ');
readln(a[i]);
write('Город, который представляет клуб "',a[i],'": ');
readln(b[i]);
end;
writeln('Данные о городах и клубах');
for i:=1 to 20 do
begin
write(a[i],' ');
writeln(b[i]);
end;
writeln;
end.

Удачи!

как массив записей заполняется? жестко прописан в коде или нужно вводить с клавиатуры?