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

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

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