напишите пожалуйста код на Delphi/ заранее спасибо

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
const m = 9;
 
var
  Form1: TForm1;
  s, p: int64;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormShow(Sender: TObject);
var i: integer;
begin
  randomize;
  Memo1.ReadOnly := true;
  Memo1.Clear;
  Label1.Caption := '';
  Label2.Caption := '';
  for i := 2 to 4 do with TButton(FindComponent('Button' + IntToStr(i))) do Enabled := false
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  Memo1.Clear;
  Label1.Caption := '';
  Label2.Caption := '';
  for i := 0 to m do Memo1.Lines.Add(IntToStr(random(199) - 99));
  for i := 2 to 4 do with TButton(FindComponent('Button' + IntToStr(i))) do Enabled := true
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
begin
  s := 0;
  for i := 0 to m do if StrToInt(Memo1.Lines[i]) < 0 then s := s + StrToInt(Memo1.Lines[i]);
  Label1.Caption := IntToStr(s)
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var i, max, min, imax, imin, t: integer;
begin
  max := StrToInt(Memo1.Lines[0]);
  imax := 0;
  min := max;
  imin := 0;
  for i := 0 to m do
    begin
      if StrToInt(Memo1.Lines[i]) > max then
        begin
          max := StrToInt(Memo1.Lines[i]);
          imax := i
        end;
      if StrToInt(Memo1.Lines[i]) < max then
        begin
          min := StrToInt(Memo1.Lines[i]);
          imin := i
        end;
    end;
  if imin > imax then
    begin
      t := imin;
      imin := imax;
      imax := t
    end;
  p := 1;
  for i := imin to imax do p := p * StrToInt(Memo1.Lines[i]);
  Label2.Caption := IntToStr(p)
end;
 
procedure TForm1.Button4Click(Sender: TObject);
var i, j, t: integer;
    s: string;
begin
  Label2.Caption := '';
  for j := 0 to m - 1 do
    for i := j + 1 to m do
      if StrToInt(Memo1.Lines[j]) > StrToInt(Memo1.Lines[i])
        then Memo1.Lines.Exchange(j, i)
end;
 
end.