Помогите решить задачу(Паскаль)

[KocT9]

дан список абонентов телефонной сети одной атс и их телефоны напечать 3 списка абонентов чьи фамилии начинаются на A,b,R

[puporev]

uses crt;
const n=9;  //число абонентов
type Tabon=record  //тип запись с полями по условию
           fio:string[20];
           tel:string[20]
           end;
var sp:array[1..n]of Tabon; //массив записей, список абонентов
    i,k:integer;
begin
clrscr;
for i:=1 to n do
   begin            //вводим данные
    writeln('Abonent ',i);
    write('Familia: ');readln(sp[i].fio);
    write('Telefon: ');readln(sp[i].tel);
   end;
writeln;
clrscr;  //очищаем экран
writeln('Spisok abonentov na bukvu A:'); //на букву А
writeln;
k:=0;
for i:=1 to n do
if sp[i].fio[1]='A' then //если первая буква А, выводим
   begin
     write(sp[i].fio,'  ',sp[i].tel);
     k:=k+1; //считаем совпадения
   end;
if k=0 then writeln('Na dannuju bukvu abonentov net!');//если нет, сообщаем
writeln;
writeln('Spisok abonentov na bukvu B:'); //тоже самое на другие буквы
writeln;
k:=0;
for i:=1 to n do
if sp[i].fio[1]='B' then
   begin
     writeln(sp[i].fio,'  ',sp[i].tel);
     k:=k+1;
   end;
if k=0 then writeln('Na dannuju bukvu abonentov net!');
writeln;
writeln('Spisok abonentov na bukvu R:');
writeln;
k:=0;
for i:=1 to n do
if sp[i].fio[1]='R' then
   begin
     writeln(sp[i].fio,'   ',sp[i].tel);
     k:=k+1;
   end;
if k=0 then writeln('Na dannuju bukvu abonentov net!');
readln
end.