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

Решить через While или For, в паскале.

1) с for var N,i:integer;res,max:real;beginreadln(N);readln(res);max:=res;for i:= 1 to N-1 dobeginreadln(res);if res<max thenmax:=res;end;writeln(max);end.2) с whilevar N,i:integer;res,max:real;beginreadln(N);readln(res);max:=res;while i <>N-1 do beginreadln(res);if res<max thenmax:=res;i:=i+1;end;writeln(max);end.