В матрице поменять местами K-тую c L-той строки

Program prim;
Uses crt;
var mass2:Array[1..100,1..100] of integer;
I,J,k,l,n,m:integer;
Procedure formirov;
   Begin
   writeln('Vvedite N,m,k,l');
   readln(N,m,k,l);
   randomize;
        FOR I:=1 to N do
        For J:=1 to m do
          a1[I,J]:=random(b-a+1)+a
          writeln('Matrica sformirovana');
          END;
             Procedure print;
              begin
              writeln('Ishodnai matrica A1:');
              For J:=1 to N do
                begin
                FOr J:=1 to m do
                   write(A1[I,J]:4,'   ':3);
                   writeln;
              end;
                   writeln('Nazmite knopku ENTER');
                end;
                        begin
                            clrscr;
                            writeln('');
                            W:=0;
                            while W<=7
                               begin
                                 writeln('Menu programmi');
                                 writeln('1:formirovanie matrici');
                                 writeln('2:Vivod matrici na ekran')
                                 writeln('3:Zadanie');
                                 writeln('8:Vihod iz programi');
                                 writeln('Vash vibor');
                                 Readln(W);
                                 case of W;
                                 1:Formirov;
                                 2:Print;
                                 3:Zadanie;
                            ENd;
                       end;
end.

Program prim;
Uses crt;
var
 a1:Array[1..100,1..100] of integer;
I,J,n,m,a,b,w:integer;
 
Procedure formirov;
Begin
   writeln('Vvedite N,m,a,b');
   readln(N);
   readln(m);
   readln(a);
   readln(b);
   randomize;
   FOR I:=1 to N do
    For J:=1 to m do
     a1[I,J]:=random(b-a+1)+a;
    writeln('Matrica sformirovana');
END;
 
Procedure print;
begin
 writeln('Ishodnai matrica A1:');
 For i:=1 to N do
  begin
   FOr J:=1 to m do
     write(A1[I,J]:4,'   ');
   writeln;
  end;
  writeln('Nazmite knopku ENTER');
end;
 
begin
clrscr;
writeln('');
W:=0;
while W<=7 do
 begin
  writeln('Menu programmi');
  writeln('1:formirovanie matrici');
  writeln('2:Vivod matrici na ekran');
  writeln('3:Zadanie');
  writeln('8:Vihod iz programi');
  writeln('Vash vibor');
  Readln(W);
  case W of
   1:Formirov;
   2:Print;
   3: {Zadanie;}
  ENd;
 end;
end.

uses crt;
const n=6; 
      m=5;
{размер матрицы-константа, хотя не обязательно}
var a:array[1..n,1..m] of integer;
    i,j,k,l,x:integer;
begin
clrscr;
writeln('Ishodnaja matrica:');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=10*i+j;
{для наглядности заносим в матрицу индексы ячеек, можно по другому}
        write(a[i,j]:4);
      end;
    writeln;
  end;
repeat
write('Vvedite nomer stroki K: ');readln(k);
write('Vvedite nomer stroki L: ');readln(l);
until (k>=1)and(k<=n)and(l>=1)and(l<=n)and(k<>l);
for j:=1 to m do {идем по строке}
   begin
     x:=a[k,j];
{запоминаем элементы строки K}
     a[k,j]:=a[l,j];
{присваиваем им элементы строки L}
     a[l,j]:=x;
{элементам строки L присваиваем запомненные элементы строки K}
   end;
writeln('Rezultat:');
for i:=1 to n do
   begin
     for j:=1 to m do
     write(a[i,j]:4);
     writeln;
   end;
readln
end.