Дано 100 вещественных чисел. Вычислить разность между максимальным и минимальным из

Var i: byte;
    ma, mi: real;
    a: array [1..100] of real;
begin
     mi := 100;
     for i := 1 to 100 do
     begin
          a[i] := random(100) / 0.5;
          writeln('[', i, '] =gt; ', a[i]);
     end;
     writeln('-----------------');
     for i := 1 to 100 do
     begin
         if (a[i] gt; ma) then ma := a[i];
         if (a[i] lt; mi) then mi := a[i];
     end;
     writeln(ma, ' - ', mi, ' = ', ma - mi);
end.

Вот =)