Вывести фамилии в обратном порядке - 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.

Задание. Вывести студетов чьи фамилии начинаются с буквы "В" в обратном порядке

Решение задачи: «Вывести фамилии в обратном порядке»

textual
                            Листинг программы 
                        
for i:=n 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,'|