задача на записи(паскаль)

[Андрей Гаранин]

Вводится (номер рейса, каткгория парахода Т-туристический или П-пассажирский, кол-во дней рейса, кол-во пассажиров). Стоимость за одного человека в день на Т параходе составляет 400, на П параходе 250.
Определить общую выручку всех рейсов, и у какого рейса наибольшая выручка.

Помогите пожалуйста не могу подсчитать у какого рейса наибольшая выручка (выделил красным цветом), все остальное работает вот моя программа:

uses crt;
type parahod=record
kategoriya:string[5];
vremya:integer;
pas:integer;
reys:string[5];
end;
var a:array[1..4] of parahod;
l,i,f,s,max,max1:integer;
begin
clrscr;
for i:=1 to 4 do with a[i] do
begin
writeln('введите категорию рейса');
readln(a[i].kategoriya);
writeln('введите кол-во дней');
readln(a[i].vremya);
writeln('введите кол-во пассажиров');
readln(a[i].pas);
writeln('введите № рейса');
readln(a[i].reys);
end;
for i:=1 to 4 do with a[i] do
begin
if a[i].kategoriya='t' then l:=400;
if a[i].kategoriya='p' then l:=250;
s:=s+(a[i].vremya*a[i].pas*l);
end;
writeln('общая выручка ',s);

max:=a[1].vremya*a[1].pas*l;
max1:=a[i].vremya*a[i].pas*l;
for i:=2 to 4 do with a[i] do
begin
if max1>max then f:=max1;
end;
writeln('наибольшая выручка у ',a[i].reys,' ',f);

writeln;
readln;
end.