Задача. Записи Pascal

const
 N=5;
var
 School:Array[1..N] of Record
           Number:Word;
           Year:Word;
           Graduated:Word;
           Matriculated:Word;
          end;
 i,i0:integer;
 Rate:Real;
Begin
 Rate:=0;
 For i:=1 to N do
  With School[i] do
   begin
    Writeln(i,' school');
    Write('Number: ');
    Readln(Number);
    Write('Year: ');
    Readln(Year) ;
    Write('Graduated: ');
    Readln(Graduated);
    Write('Matriculated: ');
    Readln(Matriculated);
    Writeln;
    If Matriculated/Graduated>Rate then
     begin
      i0:=i;
      Rate:=Matriculated/Graduated;
     end;
   end;
 Writeln('Best school:');
 With School[i0] do
  begin
   Writeln('Number: ',Number);
   Writeln('Year: ',Year);
   Writeln('Graduated: ',Graduated);
   Writeln('Matriculated: ',Matriculated);
  end;
 readln;
End.