Распечатать список студентов, фамилии которых начинаются с буквы А и их отметки

uses crt;
const nmax=20;
      line='-------------------------------------------------------';
      shap='|     Фамилия, имя, отчество     |       Отметки      |';
 
type student = record
     fio:  string[30];
     kur:   byte;
     oz: array [1..10] of integer;
     end;
 
var s:array [1..nmax] of student;
    i,j,k,n,m:byte;
 
begin
write('Количество студентов, не более ',nmax,' n=');
readln(n);
write('Сколько отметок у одного стдента? ');
readln(m);
writeln('Внесите данные о студентах: ');
for i:=1 to n do
    with s[i] do
         begin
         write('ФИO ',i,' студента: '); readln(fio);
         write('Курс): '); readln(kur);
         writeln('Oценки, всего ',m,': ');
         for j:=1 to m do read(oz[j]);
         end;
write('Студенты, фамилии которых начинаются на А');
for i:=1 to n do
    with s[i] do
         if (fio[1]='A') or (fio[1]='А') then
            begin
            inc(k);
            if k=1 then
               begin
               writeln;
               writeln(line);
               writeln(shap);
               end;
            writeln(line);
            write('|',fio:30,'|':3);
            for j:=1 to m do
                write(oz[j]:2);
            for j:=m+1 to 10 do
                write('  ');
            writeln('|');
            end;
if k=0 then writeln(', отсутствуют') else
   begin
   writeln(line);
   writeln('Всего ',k);
   end;
end.