Распечатать анкетные данные студентов-отличников — Pascal(Паскаль)

uses crt;
const n=3;
type student=record
      name,fam:string;
      ball:integer;
     end;
var x:array[1..n] of student;
    i,j,max:integer;
begin
ClrScr;
for i:=1 to n do
 begin
  Write(' Name: ');
  Readln(x[i].name);
  Write(' Fam: ');
  Readln(x[i].Fam);
  Write(' Ball: ');
  Readln(x[i].ball);
 end;
Writeln('-------------------------');
Writeln('| Name   | Fam   | Ball |');
Writeln('-------------------------');
for i:=1 to n do
 if x[i].ball=5 then
  Writeln('|',x[i].name:8,'|',x[i].fam:7,'|',x[i].ball:6,'|');
Writeln('-------------------------');
Readln
end.