procedure TForm1.Button1Click(Sender: TObject);
var a:array of integer;
    n,i,k:integer;
begin
if not TryStrToInt(Edit1.Text,n)or(n<1)then
 begin
  ShowMessage('Неверно введен размер массива');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
setlength(a,n);
with StringGrid1 do
 begin
  fixedrows:=0;
  rowcount:=1;
  fixedcols:=0;
  colcount:=n;
  defaultcolwidth:=30;
  for i:=0 to n-1 do
   begin
    a[i]:=-10+random(41);
    cells[i,0]:=inttostr(a[i]) ;
   end;
 end;
i:=n-1;
k:=-1;
for i:=0 to i do
if a[i]>=0 then
 begin
  inc(k);
  a[k]:=a[i];
 end;
if k=n-1 then ShowMessage('В массиве нет отрицательных элементов')
else if k=-1 then ShowMessage('Все элементы удалены')
else
with StringGrid2 do
 begin
  fixedrows:=0;
  rowcount:=1;
  fixedcols:=0;
  colcount:=k+1;
  defaultcolwidth:=30;
  for i:=0 to k do
  cells[i,0]:=inttostr(a[i]) ;
 end;
end;