В массиве хранятся данные об учениках класса: школа, фамилия, класс. Вывести список учеников, которые учатся в восьмом классе

Program itogpraktik;
Uses Crt;
Type
Uchenik=record
      Shkola : integer;
      Fam : string[15];
      Klass : integer;
    end;
Var
  i,n,a,j : integer;
  Massiv : array[1..100] of Uchenik;
End;
Begin
  ClrScr;
  writeln('Введите число учеников ');
   read(n);
  for i:=1 to n do
    begin
      writeln('Введите через пробел номер школы и фамилию ученика ');
       with massiv[i] do    
begin
          readln(Shkola,Fam);
          write('Введите класс ученика ');
          read(Klass);
        end;
    end;
  writeln('Ученики 8-ых классов:');
  writeln('Школа   Фамилия        Класс');
  writeln('');
  for i:=1 to n do
    if massiv[i].klass=8
      then
        with massiv[i] do
          writeln(Shkola:6,' ',Fam:15,' ',  
           klass);
   ReadKey;
End.