Переделать под графический интерфейс

var
  a: array of real;
  i, n: integer;
  T: real;
begin
  randomize;
  write('n='); readln(n);
  SetLength(a, n);
  for i := 0 to n - 1 do 
  begin
    a[i] := random * 100;
    write(a[i]:8:2);
  end;
  writeln;
  writeln('Измененный массив:');
  t := a[0];
  for i := 1 to n - 2 do
  begin
    if (a[i] > T) and (a[i] > a[i + 1]) then
    begin
      t := a[i]; a[i] := 0;
    end
    else t := a[i];
  end;
  for i := 0 to n - 1 do write(a[i]:8:2);
  writeln;
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    StringGrid2: TStringGrid;
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
 i,n:integer;
 a:array of real;
 t:real;
begin
try
n := StrToInt(Edit1.Text);
except
MessageDlg(Edit1.Text + ' не Integer', mtError, [mbAbort] , 0);
exit;
end;
StringGrid1.RowCount := 2;  StringGrid2.RowCount := 2;
StringGrid1.ColCount := n;  StringGrid2.ColCount := n;
StringGrid1.FixedCols := 0; StringGrid2.FixedCols := 0;
StringGrid1.Options := StringGrid1.Options + [goColSizing];
StringGrid2.Options := StringGrid2.Options + [goColSizing]; 
Randomize;
  SetLength(a, n);
  for i := 0 to n - 1 do 
  begin
    a[i] := random * 100;
    StringGrid1.Cells[i,1] := FloatToStr(a[i]);
  end;
 
Label1.Caption := 'Исходный массив';
Label2.Caption := 'Измененный массив';
 
t := a[0];
for i := 1 to n - 2 do
  begin
    if (a[i] > T) and (a[i] > a[i + 1]) then
    begin
      t := a[i]; a[i] := 0;
    end
    else t := a[i];
  end;
 
for i := 0 to n - 1 do StringGrid2.Cells[i,1] := FloatToStr(a[i]);
 
end;
 
end.