Определить фамилии учеников в девятых классах, имеющих оценку "5"

Const n=1;l='----------------------------------';
Type Uchenik=Record
      Fam:string[15];
      klass:byte;
      score:byte;
     End;
Var A:array[1..n] of Uchenik;
    i,c:byte;
Begin
    For i:=1 to n do
    Begin
      writeln('Информация о ',i,' ученике');
      write('Фамилия: ');readln(A[i].Fam);
      write('Класс: ');readln(A[i].klass);
      write('Оценка: ');readln(A[i].score);
    End;
    writeln(l);
    writeln('|    Фамилия    | Класс | Оценка |');
    writeln(l);
    For i:=1 to n do
     if (A[i].klass=9)and(A[i].score=5) then
     Begin
       writeln('|',A[i].fam:15,'|',A[i].klass:4,'|':4,A[i].score:4,'|':5);
       inc(c);
     End;
    if c=0 then writeln('Нету учеников удолетворяющих условию');
    writeln(l);
    readln;
End.

const
  n=1;l='----------------------------------';
type
  Uchenik=Record
    fam:string[15];
    klass:byte;
    score:byte;
  end;
var
  a: array[1..n] of Uchenik;
  i, c: byte;
begin
  for i:=1 to n do with a[i] do begin
    WriteLn('Информация о ',i,'-м ученике');
    Write('Фамилия: '); ReadLn(fam);
    Write('  Класс: '); ReadLn(klass);
    Write(' Оценка: '); ReadLn(score);
  end;
  WriteLn(l);
  WriteLn('|    Фамилия    | Класс | Оценка |');
  WriteLn(l);
  for i:=1 to n do with a[i] do
    if (klass=9) and (score=5) then begin
      WriteLn('|',fam:15,'|',klass:4,'|':4,score:4,'|':5);
      Inc(c);
    end;
  if c=0 then WriteLn('Нет учеников, удовлетворяющих условию.');
  WriteLn(l);
  ReadLn;
end.