Поменять местами строки матрицы с номерами K1 и K2

var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..10,1..10] of integer;
    m,n,k1,k2,i,j,p:integer;
begin
//введем размеры матрицы - m,n
repeat
m:=strtoint(inputbox('','Введите количество строк от 2 до 10 m=','2'));
until m in [2..10];
repeat
n:=strtoint(inputbox('','Введите количество столбцов от 2 до 10 n=','2'));
until n in [2..10];
//введем номера строк - k1,k2
repeat
k1:=strtoint(inputbox('','Введите номер 1 строки для обмена число от 1 до '+inttostr(n-1)+' k1=','1'));
until k1 in [1..n-1];
repeat
k2:=strtoint(inputbox('','Введите номер 2 строки для обмена число от '+inttostr(k1+1)+' до '+
                     inttostr(n)+' k2=','2'));
until k2 in [k1+1..n];
//зададим параметры таблиц
with StringGrid1 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  colcount:=n;
  rowcount:=m;
  defaultcolwidth:=30;
 end;
with StringGrid2 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  colcount:=n;
  rowcount:=m;
  defaultcolwidth:=30;
 end;
//заполним матрицу и выведем ее а таблицу 1
randomize;
for i:=1 to m do
for j:=1 to n do
 begin
  a[i,j]:=random(100);
  StringGrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
 end;
 //обменяем скроки k1 и k2
 for i:=1 to n do
  begin
   p:=a[k1,i];
   a[k1,i]:=a[k2,i];
   a[k2,i]:=p;
  end;
 //выведем матрицу после обмена строк в таблицу 2
for i:=1 to m do
for j:=1 to n do
StringGrid2.Cells[j-1,i-1]:=inttostr(a[i,j]);
 
 
end;