Дан массив X(N,M). Найти наибольшее значение среди сумм каждого столбца массива

program prog;
 
const
  N = 5;
  M = 4;
 
var  
  i, j, max: Integer;
  s: array[1..M] of Integer;
  x: array[1..N, 1..M] of Integer;
  
begin
  Randomize;
  for i:= 1 to N do begin
    for j:= 1 to M do begin    
      x[i,j]:= Random(20) - 10;
      Write(x[i,j]:5);
    end;
    WriteLn;
  end;
  
  for j:= 1 to M do
  begin
    s[j]:= 0;
    for i:= 1 to N do
      Inc(s[j], x[i,j]);
  end;
 
  for i:= 1 to M do
    Write('^':5);
  WriteLn;
  
  for i:= 1 to M do
    Write(s[i]:5);
  WriteLn;
  
  max:= s[1];
  for i:= 2 to M do
    if s[i] > max then
      max:= s[i];
 
  WriteLn('max: ', max);
end.

program PR449;
const n=3; m=3;{постоянное кол-во строк и столбцов или см ниже * }
var
  a:array [1..n,1..m] of integer;
  S: array [1..m] of integer;   {МАССИВ ИЗ СУММ СТОЛБЦОВ S}
  max,i,j:integer;
                          BEGIN
             writeln('           ВВЕДИТЕ ЭЛЕМЕНТЫ ');
                          
  {write('m = ');                            {ввод кол-ва строк * }
  {read (m);
  write('n = ');                           {ввод кол-ва  столбцов * }
  {read (n);}
  
  for i:=1 to n do for j:=1 to m do   {ввод элементов матрицы}
  begin
    write('A[',i,',',j,']=');
    readln(A[i,j]);
  end;  
  writeln('  **исходный массив**');
   for i:=1 to m do begin             {вывод исходной матрицы}
    for j:=1 to n do write(A[i,j]:6); 
    writeln;        end; 
   writeln(   ); {пустая строка в выводе}
 for j:=1 to m do       {считаем суммы столбцов поэтому цикл со столбцами выше}
 BEGIN
  s[J]:=0;
 for i:=1 to n do
  s[J]:=s[J]+a[i,j];    {формируем элементы массива s}
  END;
 for j:=1 to m  DO
   writeln ('s[',J,']=',s[J]); {упорядочение массива s}
 max:= s[1];       {принимаем за max 1-ый элемент массива s}
  for i:= 1 to m do if s[i] > max then  max:= s[i];{сравниваем все элементы массива s с  max}
  writeln('                  max= ',max); {выводим на экран значение итогового max}
 
                               END.