Заменить в двухмерном массиве строки с наибольшей суммой элементов заменить нулями — Pascal(Паскаль)

Program mas;
Uses crt;
Const m=5; n=4;
Var a: array[1..m,1..n] of byte;
    b: array[1..m] of byte;
    i,j,max,s: byte;
Begin
Clrscr;
Randomize;
For i:=1 to m do
  begin
   For j:=1 to n do
    begin
     a[i,j]:=random(21);
     b[i]:=b[i]+a[i,j];
     Write(a[i,j]:4);
    end;
   Writeln('      ',b[i]);
  end;
max:=b[1];s:=1;
For i:=2 to m do
If b[i]>max then
 begin
  max:=b[i];
  s:=i;
 end;
Writeln('Наибольшая сумма в ',s,'-ой строке');
for i:=1 to n do
a[s,i]:=0;
For i:=1 to m do
  begin
   For j:=1 to n do
   Write(a[i,j]:4);
   Writeln;
  end;
readln
End.