Паскаль.Записи. определить клиента имеющего максимальный вклад в банке

[ChelseaFan]

Записи. определить клиента имеющего максимальный вклад в банке.
Программа работает но не правильно не выводит ничего.

Во что Написал

program bank;
 uses crt;
 const n=3;
type
 info=record
 str:string;
 naz:string;
 fio:string;
 dohod:string;
 end;
var
 mas:array[1..n] of info;
 j,i:integer; f:string;
begin
 for i:=1 to n do
 with mas[i] do
 begin
 clrscr;
 write('Strana: '); readln(str);
 write('Nazvanie banka: '); readln(naz);
 write('Klient: '); readln(fio);
 write('Dohod: '); readln(dohod);
end;
 begin
 for i:=1 to n-1 do
 for j:=i+1 to n do
 if mas[i].fio=mas[j].fio then f:=mas[i].fio;
 end;
 writeln(f);
 readln;
end.

[GetMax]

Буем считать, что вклад это доход клиента. Тогда клиента с максимальным доходом можно найти так

const n=3;
type
   info=record
            str:string;
            naz:string;
           fio:string;
          dohod:Integer;
        end;
var
  mas:array[1..n] of info;
  j,i,MaxDohod,Imax:integer;
Begin
   for i:=1 to n do
   with mas[i] do
   begin
     write('Strana: '); readln(str);
     write('Nazvanie banka: '); readln(naz);
     write('Klient: '); readln(fio);
     write('Dohod: '); readln(dohod);
  end;
  MaxDohod:=0;
  for i:=1 to n do with Mas[i] do
  Begin
     if mas[i].Dohod > MaxDohod then
     Begin
       MaxDohod:=Mas[i].Dohod;
       Imax:=i
     end;
  end;
 writeln('Max dohod imeet ', Mas[Imax].Fio);
 readln
End.

[ChelseaFan]

Сообщение от GetMax

Буем считать, что вклад это доход клиента. Тогда клиента с максимальным доходом можно найти так

const n=3;
type
   info=record
            str:string;
            naz:string;
           fio:string;
          dohod:Integer;
        end;
var
  mas:array[1..n] of info;
  j,i,MaxDohod,Imax:integer;
Begin
   for i:=1 to n do
   with mas[i] do
   begin
     write('Strana: '); readln(str);
     write('Nazvanie banka: '); readln(naz);
     write('Klient: '); readln(fio);
     write('Dohod: '); readln(dohod);
  end;
  MaxDohod:=0;
  for i:=1 to n do with Mas[i] do
  Begin
     if mas[i].Dohod > MaxDohod then
     Begin
       MaxDohod:=Mas[i].Dohod;
       Imax:=i
     end;
  end;
 writeln('Max dohod imeet ', Mas[Imax].Fio);
 readln
End.

Спасибо)).....