Язык Pascal. Программирование для начинающих

const n = 50;
var
    arr: array[1..n] of real;
    max: real;
    i,j,k: byte;
begin
    randomize;
    max := 0;
    for i:=1 to n do begin
        arr[i] := random()-0.50;
        write(arr[i]:7:2);
        if abs(arr[i]) > abs(max) then
            max := arr[i]
    end;
    writeln;
    writeln(max:7:2);
 
readln;
end.