файлы

[Александр16]

1)Обновить содержимое поля "ФИО водителя" в заданных записях
2)Напечатать две записи, в которых поле "расход топлива" имеет минимальное значение, а "выручка в руб. "-максимальное значение.
Помогите пожалуйста со вторым заданием процедура min1 .
program ggg;
uses crt;
Type r=record
tpark,fio:string[30];
rashod,lave: integer;
nomer:string[8];
end;
var
f1:file of r;
p:r;
n,i,q:integer;
a:array [1..3] of r;
procedure work;
var num: integer;
begin
write('Сколько фамилий вам нужно обновить ');
read(n);
reset ( f1);
for i:=1 to n do
begin
write ('номер= ');
readln (num);
seek (f1, num-1);
read (f1,a[i]);
write ('fio=');
writeln (a[i].fio);
seek (f1,filepos(f1)-1);
writeln (' Введите новую фамилию' );
readln (a[i].fio);
write (f1,a[i]);
end;
close (f1);
reset(f1);
for i:=1 to 3 do
begin
read (f1,a[i]);
with a[i] do
begin
writeln(fio);
end;
end;
close (f1);
readkey;
end;
procedure min1;
var
min:integer;
begin
reset(f1);
begin
for i:=1 to 3 do
begin
if a[i].rashod < a[min].rashod then
begin
min:=min ;
writeln(min); end;
end;
end;
close (f1);
end;
begin
textcolor(lightgreen);
clrscr;
Assign(f1,'D:\myfile.txt');
rewrite(f1);
n:=0;
gotoxy(2,2);
Write('Таксопарк');
gotoxy(14,2);
write('номер авто');
gotoxy(26,2);
write('Ф.И.О водителя');
gotoxy(46,2);
write('расход топлива');
gotoxy(62,2);
write('прибыль');
for i:=1 to 3 do
begin
with a[i] do
begin
n:=n+1;
gotoxy(3,4*n+1);
readln(tpark);
gotoxy(15,4*n+1);
readln(nomer);
gotoxy(26,4*n+1);
readln(fio);
gotoxy(46,4*n+1);
readln(rashod);
gotoxy(62,4*n+1);
readln(lave);
end;
write(f1,a[i]);
end;
close(f1);
reset(f1);
for i:=1 to 3 do
begin
read (f1,a[i]);
with a[i] do
begin
writeln(fio);
end;
end;
close (f1);
work;
min1;
readkey;
end.