(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;beginrandomize;for i := 1 to m do beginfor j := 1 to n do begina[i,j] := random(10); // Присвоение элементу матрицы произвольного целого числа, находящегося в диапазоне  от 1 до 9.write (a[i,j]:3)end;writelnend;maxsumma := 0;s := 1;for j := 1 to n do beginfor i := 1 to m do s := s + a[i,j];if s > maxsumma then begin maxsumma := s; max := j; end;s := 0;end;Writeln;Write(maxsumma, \' \', max);End.