Решить 8) 2 пункт (На языке Паскаль,Делфи) За 50 баллов

Const
mm=15;
ll=20;
var
m,l,k,n,i,j,t:integer;
b:array[1..mm,1..ll] of integer;
begin
Write('Количество строк и столбцов матрицы: ');
Read(m,l);
Write('Номера строк для обмена: ');
Read(k,n);
if (k>m) or (n>m) then Writeln('Неверный ввод')
else begin
    Randomize;
    Writeln('Исходная матрица');
    for i:=1 to m do begin
      for j:=1 to l do begin
        b[i,j]:=Random(100);
        Write(b[i,j]:3)
        end;
      Writeln
    end;
    for j:=1 to l do begin t:=b[k,j]; b[k,j]:=b[n,j]; b[n,j]:=t end;
    Writeln('Результирующая матрица');
    for i:=1 to m do begin
      for j:=1 to l do Write(b[i,j]:3);
      Writeln
      end
    end
end.

Пример
Количество строк и столбцов матрицы: 8 11
Номера строк для обмена: 3 7
Исходная матрица
36 41 20 48 68 93 12 87 2 80 67
96 15 59 55 55 18 89 14 2 12 77
99 4 13 92 63 7 43 4 55 68 98
91 55 44 70 23 55 39 84 36 26 76
89 86 85 84 60 55 88 59 30 38 20
59 42 16 35 75 30 5 44 97 25 99
98 23 4 10 85 94 34 74 18 76 50
23 14 27 6 78 47 88 16 95 38 59
Результирующая матрица
36 41 20 48 68 93 12 87 2 80 67
96 15 59 55 55 18 89 14 2 12 77
98 23 4 10 85 94 34 74 18 76 50
91 55 44 70 23 55 39 84 36 26 76
89 86 85 84 60 55 88 59 30 38 20
59 42 16 35 75 30 5 44 97 25 99
99 4 13 92 63 7 43 4 55 68 98
23 14 27 6 78 47 88 16 95 38 59

Решить 8) 2 пункт (** языке Паскаль,Делфи) За 50 баллов