Паскаль, срочно. Пожалуйста

type o = record
g: integer;
p: real;
u: string [100];
end;
var i, n, k, code_error: integer;
max, min: real;
t: array [1..100] of o;
a: array [1..100] of string;
f: textfile;
begin
assign (f, 'gasoline.txt');
reset (f);
n:=0;
writeln ('Улица':16, 'Марка':27,'Цена':8);
while not eof(f) do
begin
inc(n);
readln (f, a[n]);
t[n].u:=copy (a[n], 1, length(a[n])-9);
write (t[n].u);
for i:=1 to 37 - length (t[n].u) do write (' ');
delete (a[n], 1, length(a[n])-8);
val (copy (a[n], 1, 2), t[n].g, code_error);
write (t[n].g:5);
delete (a[n], 1, 3);
val (copy (a[n], 1, length(a[n])),t[n].p, code_error) ;
writeln (t[n].p:10);
end;
writeln;
write ('Максимальная цена бензина марки "92" = ');
max:=0;
for i:=1 to n do
if (t[i].g = 92) and (t[i].p > max ) then max:=t[i].p;
writeln (max);
min:=100;
for i:=1 to n do
if (t[i].g = 95) and (t[i].p < min ) then min:=t[i].p;
write ('Количество АЗС, которые продают бензин "95" по минимальной цене в городе = ');
k:=0;
for i:=1 to n do
if (t[i].g = 95) and (t[i].p = min ) then inc(k);
writeln (k);
close (f);
end.

ссылка на скачивание "ru.files.fm/u/zdrf5h43"
образец файла gasoline.txt

Петрашко 95 15.15
Московский переулок 95 25.35
Адмирала Руднева 95 24.12
Автомоторная 95 24.45
Деловая 92 24.25
Серпуховская 92 33.17
Супер Пупер Деловая Колбаса 92 24.55
Энтузиастов 98 56.56
Барбарисовая 92 25.25
Маршала Егорова 92 24.28
Командира Третьей эскадрильи Петрова 92 28.99
Маршала Устинова 98 24.21
Челябинская 95 15.15