Ребятки, помогите, пожалуйста.В соревнованиях по плаванию принимают роль N спортсменов.

берусь)

1) с for 
var N,i:integer;
res,max:real;
begin
readln(N);
readln(res);
max:=res;
for i:= 1 to N-1 do
begin
readln(res);
if reslt;max then
max:=res;
end;
writeln(max);
end.
2) с while
var N,i:integer;
res,max:real;
begin
readln(N);
readln(res);
max:=res;
while i lt;gt;N-1 do 
begin
readln(res);
if reslt;max then
max:=res;
i:=i+1;
end;
writeln(max);
end.