Паскаль. Дан массив вещественных чисел В(20), заданной случайным образом в диапазоне

var b: array [1..20] of real;

i: integer;

max,min: real;

begin

for i:=1 to 20 do b[i]:=random(156)-65;

max:=b[1];

min:=b[1];

for i:=2 to 20 do begin

if mingt;b[i] then min:=b[i] else

if maxlt;b[i] then max:=b[i];

end;

writeln('Приватное наибольшего ',max,' на ',min,' - ',max/min);

end.