Hogyan kell a delphi-ben elkészíteni ezt a programot?

Közben bocs. tabaki kolléega kicsit átírtam a tiedet rövidebbre:

program pozneg;

{$APPTYPE CONSOLE}

uses SysUtils;

const eleje = 1; ivege = 10; jvege = 10; vege = ivege * jvege;

var i, j, pozitiv, negativ, nulla : integer;

homerseklet : array[eleje..vege] of integer;

begin

Randomize;

pozitiv := 0;

negativ := 0;

for i := eleje to vege do homerseklet[i] := random(1001) - 500;

for j := eleje to jvege do

begin

for i:=eleje to ivege do Write(homerseklet[j * i] / 10:7:1);

WriteLn;

end;

for i := eleje to vege do if homerseklet[i] > 0 then Inc(pozitiv) else if homerseklet[i] < 0 then Inc(negativ);

nulla := vege - pozitiv - negativ;

Write('Pozitív: ',pozitiv,', Negatív: ',negativ,', Nulla: ',nulla);

ReadLn;

end.

Ki tudod belőle találni vagy kell az egész ?

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;

type

TForm1 = class(TForm)

Memo1: TMemo;

Button1: TButton;

Button2: TButton;

Button3: TButton;

LabeledEdit1: TLabeledEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

//számolás

procedure TForm1.Button1Click(Sender: TObject);

var szam: real;

hiba : integer;

begin

Val(LabeledEdit1.Text, szam, hiba);

if hiba <> 0 then MessageDlg('Hibás számformmátum', mtError, [mbOk],0) else

Memo1.Lines.Append(FloatToStr(szam * szam));

end;

//Memo1 törlés

procedure TForm1.Button2Click(Sender: TObject);

begin

Memo1.Clear;

end;

//Bezárás

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

end.

homerseklet[j * i]

A fenébe, ez bosszant, eredetileg én is így találtam ki, aztán elfelejtettem...

Én is írom, Lazarusban. :)