[Fokys100]

Может будет интересно...

Код:

var 
   a:array [1..100] of single;
   max: single;
//Эта цикл для нахождение максимального члена массива
for i:=1 to 100 do
begin
   if max>a[i] then max:=max
   else if k<=a[i] then k:=a[i];
end;