Массив: Удалить строку матрицы с номером K

var
  Form1: TForm1;
  a:array[1..10,1..10] of double;
  m,n,k:integer;
implementation
 
{$R *.dfm}
//создать матрицу А[m,n]
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
 begin
randomize;
//ввод размера матрицы с проверкой диапазона
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];
repeat
k:=strtoint(inputbox('Введите номер строки от 1 до '+inttostr(m)+' k=','','2'));
until k in [1..m];
with stringgrid1 do
 begin
  //устанавливаем основные параметры таблицы
  fixedrows:=0;
  fixedcols:=0;
  rowcount:=m;
  colcount:=n;
  defaultcolwidth:=30;
  //создаем матрицу и выводим ее в таблицу
  for i:=1 to m do
  for j:=1 to n do
   begin
    a[i,j]:=9*random;
    StringGrid1.Cells[j-1,i-1]:=formatfloat('0.00',a[i,j]);
   end;
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
if k<m then
for i:=k to m-1 do
for j:=1 to n do
a[i,j]:=a[i+1,j];
m:=m-1;
with stringgrid2 do
 begin
  //устанавливаем основные параметры таблицы
  fixedrows:=0;
  fixedcols:=0;
  rowcount:=m;
  colcount:=n;
  defaultcolwidth:=30;
  for i:=1 to m do
  for j:=1 to n do
  StringGrid2.Cells[j-1,i-1]:=formatfloat('0.00',a[i,j]);
 end;
end;