Дан двумерный массив заданный случайным образом размером 3*5. Вывести сформированный массив

Код написан в программке PascalABC.NET.

Program maxsumarray;
Var Ar: array[1..3,1..5] of byte;
i, j, maxsum, k, max: byte;
Begin
randomize;
for i := 1 to 3 do begin
for j := 1 to 5 do begin
Ar[i,j] := random(6);
write (Ar[i,j]:3)
end;
writeln;
end;
maxsum := 0;
k := 0;
for j := 1 to 5 do begin
for i := 1 to 3 do k := k + Ar[i,j];
if k gt; maxsum then begin maxsum := k; max := j; end;
k := 0;
end;
Writeln;
Writeln(Максимальная сумма среди сумм столбцов одинакова , maxsum);
Writeln(Номер столбца: , max);
End.