Поменять местами первую строку и строку, в которой находится первый нулевой элемент

const n=5;m=4;
var   a:array[1..n,1..m]of integer;
var i,j:integer;
    i0:integer;
    f:boolean;
begin
    f:=false;
    i0:=-1;
    writeln('исходная');
    for i:=1 to n do
     begin
      for j:=1 to m do
       begin
        a[i,j]:=-10+random(21);
        write(a[i,j]:4);
        if (not f) and (a[i,j]=0) then begin i0:=i;f:=true end
       end;
      writeln
     end;
    if i0=1
     then writeln('нулевой находится в 1 строке')
     else 
      begin
       if i0=-1
        then writeln('нулевого элемента нет')
        else
          begin
           for j:=1 to m do
            begin
             a[1,j]:=a[1,j]+a[i0,j];
             a[i0,j]:=a[1,j]-a[i0,j];
             a[1,j]:=a[1,j]-a[i0,j]
            end;
           writeln('полученная');
           for i:=1 to n do
            begin
             for j:=1 to m do write(a[i,j]:4);
             writeln
            end
          end
      end;
    readln  
end.