Произвести действия с матрицей

[ceccu9l]

Delpi
Результаты эксперимента хранятся в двумерном массиве размером М х М (М=2*n+1, n>=1). Сформировать новый одномерный массив из двумерного по схеме. В новом массиве удалить одинаковые результаты (сжать массив). Новый одномерный массив отсортировать в порядке возрастания. Вспомогательные массивы не создавать.
выходные данные: 1. Размер полученного одномерного массива 2. Одномерный массив 3. Размер сжатого массива 4. Отсортированный массив


есть программа которая случайным образом заполняет двумерный массив и выводит периметр и центр:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..15,1..15] of integer;
    n,m,i,j,k:integer;
begin
randomize;
val(Edit1.Text,n,k);
if(k<0) then
 begin
  ShowMessage('Неверно введен размер матрицы');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
 n:=2*n+1;
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=n;
m:=4*(n-1)+1;
StringGrid2.ColCount:=m;
for i:=1 to n do
for j:=1 to n do
 begin
  a[i,j]:=10+random(50);
  StringGrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
 end;
for i:=1 to n-1 do
 begin
  StringGrid2.Cells[i-1,0]:=inttostr(a[1,i]);
  StringGrid2.Cells[n+i-2,0]:=inttostr(a[i,n]);
  StringGrid2.Cells[2*n+i-3,0]:=inttostr(a[n,n-i+1]);
  StringGrid2.Cells[3*n+i-4,0]:=inttostr(a[n-i+1,1]);
 end;
StringGrid2.Cells[m-1,0]:=inttostr(a[n div 2+1,n div 2+1]);
end;
end.