Вывести фамилии в обратном порядке - Turbo Pascal

program familia;
uses crt;
const n=2;
type student=record
      i:byte;
      Fam:string;
      Name:string;
      Group:string;
      Year:integer;
      ball:record
      OCC,IT,OP: 1..5;
     end;
     end;
var x:array[1..n] of student;
    i,j:integer;
begin
for i:=1 to n do
 begin
  Write(' fam: ');
  Readln(x[i].fam);
  Write(' name: ');
  Readln(x[i].name);
  Write(' group: ');
  Readln(x[i].group);
  Write(' year: ');
  Readln(x[i].year);
  Write(' Ball(OCC,IT,OP): ');
  Readln(x[i].ball.OCC,x[i].ball.IT,x[i].ball.OP);
 end;
Writeln('----------------------------------------------------------------------');
Writeln('| Familia   |   Name   | Group    |   Year   | OCC |   IT |  OP |');
Writeln('----------------------------------------------------------------------');
for i:=length(x[i].fam) downto 1 do
 if x[i].fam[1]='В' then
  Writeln('|',x[i].fam:11,'|',x[i].name:11,'|',x[i].group:9,'|',x[i].year:11,'|',x[i].ball.occ:5,'|',x[i].ball.IT:4,'|',x[i].ball.OP:4,'|');
Writeln('-----------------------------');
Readln
end.