Как ввести данные в такую структуру? (Паскаль АВС)

type s1=array[1..10] of char;
nomtel=1000000..9999999;
znak=record
bam:s1;
nom:nomtel;
end;
str=array[1..20] of znak;
zapkn=array['a' .. 'z'] of str;

каким образом вводить данные в такую структуру? ?
я думал так -
var
s:string;
ch:char;

readln(s);
ch:=s[1];
readln(a[ch].str[n].bam);
но выдает ошибку - переменная не является записью или обьектом

нужно ввести данные в массив zapkn. вот в чем заключается задание - Считая, что на каждой странице записной книжки указаны фамилии, начинающиеся с буквы - индекса этой страницы,

нашел решение сам !
readln(s);
ch:=s[1];
num[ch]:=num[ch]+1;
a[ch][num[ch]].bam:=s;
write('Введіть номер ');
readln(a[ch][num[ch]].nom);