(PASCAL) Дан двухмерный массив целых чисел. Найти столбец с максимальной суммой

Код написан в программке PascalABC.NET.
Program TwoDimensionalArray;
Const m = 5; // Количество строк в матрице.
n = 4; // Количество столбцов.
var a: array[1..m,1..n] of byte;
i, j, maxsumma, s, max: byte;
begin
randomize;
for i := 1 to m do begin
for j := 1 to n do begin
a[i,j] := random(10); // Присвоение элементу матрицы произвольного целого числа, находящегося в спектре  от 1 до 9.
write (a[i,j]:3)
end;
writeln
end;
maxsumma := 0;
s := 1;
for j := 1 to n do begin
for i := 1 to m do s := s + a[i,j];
if s gt; maxsumma then begin maxsumma := s; max := j; end;
s := 0;
end;
Writeln;
Write(maxsumma, , max);
End.