Задача на двумерные массивы

const 
    m=5;
    n=6;
var
   a,c:array[1..m,1..n] of integer;{n-кол-во строк, m-кол-во столбцов}
   i,z,j,s,max,min,x,y,q,g: integer;{z-номер строки, s-суммарный балл,
   x- номер максимальной строки, y - номер минимальной строки,
   q g - переменные для сохранения значений строк при обмене}
begin
for i:=1 to m do begin
for j:=1 to n do begin
write('a[',i,';',j,']=');{ввод элементов массива}
read(a[i,j]);
end;
end;
    for i:=1 to m do begin
    for j:=1 to n do
    write(a[i,j],' ');
    writeln;
    end;
    z:=0;
    x:=1;
    max:=1;
    min:=1;
    for j:=1 to n do
    min:=min+a[1,j];
    max:=min;
    x:=1;
    y:=1;
     for i:=1 to m do begin
         s:=0;
     for j:=1 to n do
        s:=s+a[i,j];
        z:=z+1;
        writeln('суммарный балл по строке№',z,':',s);
        If s>max then begin
        max:=s;
        x:=i;
        end;
        if s<min then begin
        min:=s;
        y:=i;
    end;  
end;
Writeln('Номер максимальной строки:',x,' Максимальный суммарный балл:',max);
Writeln('Номер минимальной строки:',y,' Минимальный суммарный балл:',min);
q:=1;
g:=1;
for j:=1 to n do 
q:=a[x,j];
a[x,j]:=a[1,j];
a[1,j]:=q;
g:=a[y,j];
a[y,j]:=a[5,j];
a[5,j]:=g;
for i:=1 to m do begin writeln; 
for j:=1 to n do begin
write(' a[',i,',',j,']=',a[i,j]);
end;
end;
end.