Составить программу обработки матрицы размерности NxM

const n=3;
        m=4;
var
  Form1: TForm1;
  a:array[1..m,1..m] of integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const m=4;
var i,j:integer;
begin
with StringGrid1 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  defaultcolwidth:=30;
  colcount:=m;
  rowCount:=n;
 end;
for i:=1 to n do
for j:=1 to m do
 begin
  a[i,j]:=random(50);
  StringGrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
 end;
 
end;
procedure TForm1.Button2Click(Sender: TObject);
var i,j,k,p:integer;
begin
with StringGrid2 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  defaultcolwidth:=30;
  colcount:=m;
  rowCount:=m;
 end;
val(Edit1.Text,p,k);
if(k<>0)and not(p in [1..n])then
 begin
  ShowMessage('Введите номер строки от 1 до 3');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
if p<n then
for i:=m downto p+2 do
for j:=1 to m do
a[i,j]:=a[i-1,j];
for i:=1 to m do
a[p+1,i]:=i;
for i:=1 to m do
for j:=1 to m do
StringGrid2.Cells[j-1,i-1]:=inttostr(a[i,j]);
end;