Вывести данные о счете, который содержит наибольший оборот по дебету.

uses crt;
const n=1;
type Rax=record
           fio:string[15];
           god:Word;
           balance:integer;
           dibet:integer;
           end;
var sp:array[1..n] of Rax;{массив записей}
    i:byte;
    max:Rax;
begin
clrscr;
writeln('Введите данные:');
for i:=1 to n do
  begin
    writeln('Щет ',i);
    writeln(' Фамилия И.О.: ');readln(sp[i].fio);
    writeln(' Год ');readln(sp[i].god);
    writeln(' Баланс ');readln(sp[i].balance);
    writeln(' Дебет ');readln(sp[i].dibet);
   end;
max:=sp[1];
clrscr;
writeln('Полный список:');
writeln;
writeln('-----------------------------------------');
writeln('|  Фамилия И.О.  | Год | Баланс | Дебет |');
writeln('-----------------------------------------');
for i:=1 to n do
   begin
      write('| ',sp[i].fio:15);
      write('| ',sp[i].god);
      write('| ',sp[i].balance:9);
      write('| ',sp[i].dibet:8);
      writeln;
      if max.dibet<sp[i].dibet then
         max:=sp[i];
     end;
writeln('Максимальный дебет');
writeln;
writeln('-----------------------------------------');
writeln('|  Фамилия И.О.  | Год | Баланс | Дебет |');
writeln('-----------------------------------------');
write('| ',sp[i].fio:15);
write('| ',sp[i].god);
write('| ',sp[i].balance:9);
write('| ',sp[i].dibet:8);
end.