Доделать программу

uses crt;
var
   arr : array[1..5,1..3] of real;
   a : array[1..5] of real;
   max : real;
   i, k : integer;
begin
 
    for i := 1 to 5 do a[i]:= 0;
 
    for i := 1 to 5 do
    begin
        for k:= 1 to 3 do
        begin
            arr[i,k]:= Random * 5;
            Write(arr[i,k]:0:2,'    ');
            a[i]:= a[i] + arr[i,k];
        end;
        a[i]:= a[i] / 3;
        if i = 1 then max:= a[i]
        else if max < a[i] then max:= a[i];
        WriteLn;
        WriteLn;
    end;
 
     if max < 3.2 then
     begin
        WriteLn('naibolshee srednee arifmeticheskoe: ', max:0:2, ' < 3.2');
        WriteLn('Izmenennaya matrica: ');
        for i := 1 to 5 do
        begin
            for k:= 1 to 3 do
            begin
                 arr[i,k]:= arr[i,k] / max;
                 Write(arr[i,k]:0:2,'    ');
            end;
            WriteLn;
            WriteLn;
        end;
     end
     else WriteLn('naibolshee srednee arifmeticheskoe: ', max:0:2, ' > 3.2');
 
    readln;
end.