Определить сумму элементов каждого столбца матрицы

uses crt;
const q=6; p=4;
var a: array [1..q,1..p] of integer;
    s: array [1..p] of integer;
    i,j,jmax,max,buf,ns: integer;
begin
for i:=1 to q do
    for j:=1 to p do
        begin
        write ('Введите ',j,' элемент ',i,' строки ');
        readln (a[i,j]);
        end;
for j:=1 to p do
    s[j]:=0;
writeln;
writeln ('Исходный массив');
for i:=1 to q do
    begin
    for j:=1 to p do
        begin
        write (a[i,j]:5);
        s[j]:=s[j]+a[i,j];
        end;
    writeln;
    end;
max:=s[1];
jmax:=1;
writeln;
writeln ('Сумма элементов столбцов');
for j:=1 to p do
    begin
    write (s[j]:5);
    if s[j]>max then
       begin
       max:=s[j];
       jmax:=j;
       end;
    end;
writeln;
writeln ('Максимальное значение суммы, равное ',max,', в столбце ',jmax);
if jmax=p then
   writeln ('Обмен невозможен, макисмальная сумма в последнем столбце') else
begin
 
for i:=1 to q do
    begin
    buf:=a[i,jmax];
    a[i,jmax]:=a[i,p];
    a[i,p]:=buf;
    end;
writeln ('Массив после обмена');
for i:=1 to q do
    begin
    for j:=1 to p do
        write (a[i,j]:5);
    writeln;
    end;
end;
writeln ('Введите строку, которую необходимо вывести на экран');
readln (ns);
writeln ('Строка под номером ',ns);
for j:=1 to p do
    write (a[ns,j]:5);
writeln;
writeln ('Массив с обнуленной строкой');
for i:=1 to q do
    begin
    for j:=1 to p do
        begin
        a[ns,j]:=0;
        write (a[i,j]:5);
        end;
    writeln;
    end;
end.