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

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