Исправить ошибку

program primer1; 
type anketa=record 
   fio:string[45]; 
   rost:string[8]; 
   ves:string[50];  
   nclass:string[3];
end; 
var student: array [1..100] of anketa; 
    i,n,j: integer;
begin 
   writeln('введите кол-во учеников');
   readln(n);
   for i:=1 to n do begin
   writeln ('введите сведения о студенте'); 
   writeln ('введите фамилию, имя'); 
   readln (student[i].fio); 
   writeln ('введите рост'); 
   readln (student[i].rost); 
   writeln ('введите вес'); 
   readln(student[i].ves); 
   writeln ('введите класс и букву'); 
   readln (student[i].nclass);
   end;
   writeln ('ввод закончен'); 
   writeln ; 
   for i:=1 to n do 
    for j:=i+1 to n do
    if (student[i].nclass='9А')and(student[i].rost=student[j].rost)and(student[i].ves=student[j].ves) then writeln ('фамилия,имя студента: ',student[j].fio );
end.

program primer1;
 
type
  anketa = record 
    fio: string[45]; 
    rost: string[8]; 
    ves: string[50];  
    nclass: string[3];
  end;
 
var
  student: array [1..100] of anketa; 
  i, n, j: integer;
 
begin
  writeln('введите кол-во учеников');
  readln(n);
  for i := 1 to n do 
  begin
    writeln('введите сведения о студенте'); 
    writeln('введите фамилию, имя'); 
    readln(student[i].fio); 
    writeln('введите рост'); 
    readln(student[i].rost); 
    writeln('введите вес'); 
    readln(student[i].ves); 
    writeln('введите класс и букву'); 
    readln(student[i].nclass);
  end;
  writeln('ввод закончен'); 
  writeln; 
  for i := 1 to n - 1 do 
    if student[i].fio <> '' then
    begin
      writeln('Студенты', #13#10, student[i].fio);
      for j := i + 1 to n do
        if (student[i].nclass = '9А') and (student[i].rost = student[j].rost) and (student[i].ves = student[j].ves) then 
        begin writeln(student[j].fio ); student[j].fio := ''; end;
      writeln('Одного роста и веса, а также учатся в 9"А"', #13#10);
    end;
end.