Найти среди записей number ту, в которой number самый большой

type tpidr = record
avtor:string[15];
nazva:string[15];
year:integer;
vidanna:string[15];
number:Integer;
end;
var
  i,n,k,max:Integer;
   kn:array[1..100]of tpidr;
begin
  Writeln('Vvedit kilkist zapusiv');
  readln(n);
  for i:=1 to n do
  begin
  Writeln('Enter avtor,nazva,year,vidanna,number');
  write('avtor ');
  readln(kn[i].avtor);
  write('nazva ');
  readln(kn[i].nazva);
  write('year ');
  readln(kn[i].year);
  write('vidanna ');
  readln(kn[i].vidanna);
  write('number ');
  readln(kn[i].number);
  end;
 
 
  writeln('Avtor naibilhoi kilkosti pidruchnukiv');
 kn[1].number:=256;
  for i:=2 to n do
  begin
  if kn[i].number<kn[1].number then
  max:=kn[i].number;
  end;
  writeln(kn[max].avtor);
  writeln(kn[max].nazva);
  writeln(kn[max].year);
  writeln(kn[max].vidanna);
  writeln(kn[max].number);
  readln;
  end.