Замена goto на procedure

Program matrrrr;
label p1,p2,p3,p4;
type Matr=array of array of integer;
  dinmas=array of integer;
var mas,a:Matr;
 num,pr,l,prom,x,y,i,j,n:integer;
 b,z:dinmas;
begin
randomize;
write('Vvedite razmernost matrici:');
readln(n);
setlength(b,n);
setlength(z,n);
setlength(mas,n+1);
setlength(a,n);
for i:=0 to n-1 do
 setlength(a[i],n);
for i:=0 to n do
 setlength(mas[i],n+1);
for i:=0 to n-1 do
 for j:=0 to n-1 do
  a[i,j]:=random(10);
 for i:=0 to n-1 do
  begin
   for j:=0 to n-1 do
   write(a[i,j],' ');
   writeln;
  end;
  writeln('Vibor procedury');
  writeln('Perest strok 1');
  writeln('Transpon matricy 2');
  writeln('Skal proizvedenie 3');
  readln(num);
  case num of
  1:goto p1;
  2:goto p2;
  3:goto p3;
  else goto p4
  end;
  p1:
  write('Vvedite nomera perest strok:');
  readln(x,y);
  x:=x-1;
  y:=y-1;
   for j:=0 to n-1 do
    b[j]:=a[x,j];
   for j:=0 to n-1 do
    a[x,j]:=a[y,j];
   for j:=0 to n-1 do
   a[y,j]:=b[j];
   writeln;
   for i:=0 to n-1 do
    begin
     for j:=0 to n-1 do
      write(a[i,j],'');
      writeln;
     end;
     writeln;
    goto p4;
   p2:
   for i:=0 to n-1 do
    for j:=0 to n-1 do
     mas[i+1,j+1]:=a[i,j];
    l:=n;
     for i:=1 to l-1 do
      for j:=l-i downto 1 do
       begin
       prom:=mas[i,j];
       mas[i,j]:=mas[l-j+1,l-i+1];
       mas[l-j+1,l-i+1]:=prom;
       end;
       writeln;
      for i:=1 to n do
       begin
        for j:=1 to n do
        write(mas[i,j],'');
        writeln;
       end;
       goto p4;
      p3:
      write('Vvedite nomera stroki i stolbca:');
      readln(x,y);
      x:=x-1;
      y:=y-1;
      for i:=0 to n-1 do
       z[i]:=a[x,i];
      for i:=0 to n-1 do
       b[i]:=a[i,y];
      pr:=0;
      for i:=0 to n-1 do
       pr:=pr+z[i]*b[i];
       writeln('Skal proizv=',pr);
       p4:
       readln
       end.