В матрице А поменять местами две строки с заданными номерами

uses crt;
var a,c:array[1..20,1..20] of integer;
    v:array[1..210] of integer;
    n,i,j,m,k,l:integer;
begin
clrscr;
randomize;
write('Размер матрицы n=');
readln(n);
writeln('Матрица А:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*i+j;{для наглядности}
    write(a[i,j]:4);
   end;
  writeln;
 end;
repeat
write('Введите номер первой строки для обмена от 1 до ',n-1,' k=');
readln(k);
until (k in [1..n-1]);
repeat
write('Введите номер второй строки для обмена от 2 до ',n,' l>k =');
readln(l);
until (l in [2..n])and(l>k);
for i:=1 to n do
 begin
  m:=a[k,i];
  a[k,i]:=a[l,i];
  a[l,i]:=m;
 end;
writeln('Матрица A после обмена строк:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln;
writeln('Нижняя треугольная матрица С:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j<=i then c[i,j]:=a[i,j]
    else c[i,j]:=0;
    write(c[i,j]:4);
   end;
  writeln;
 end;
m:=0;
for i:=1 to n do
for j:=1 to n do
if j<=i then
 begin
  m:=m+1;
  v[m]:=c[i,j];
 end;
writeln('Вектор:');
for i:=1 to m do
write(v[i],' ');
readln
end.