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

[Credo]

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

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

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.(

f);
end.

Сообщение отредактировано: Credo - 28.11.2010 12:11