Problem bei Übungsaufgabe

[oxmox]

Hi Leute ^^
und zwar bräucht ich eure Hilfe bei einer eigentlich ziemlich leichten Aufgabe.

Das Programm soll in einem Stringgrid 100 Zufallszahlen ausgeben (10 Spallten x10 Zeilen).
Dabei soll die Summe und der Mittelwert jeder Zeile und Spalte in die dafür vorgegebene Box ausgegeben werden.
Das ganze läuft über ein Array.
Ich zeig euch erstmal die Oberfläche
http://img3.imagebanana.com/view/leo...enannt.bmp.png

hier ist der Code
hab natürlich schon einiges probiert, aber wieder gelöscht, weil es nicht funktioniert hat.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

type feldtyp= array [1..10,1..10] of integer; // <-- Array
var feld: feldtyp;

procedure TForm1.FormShow(Sender: TObject);
var i: integer;
begin
randomize;
for i:=1 to 10 do
begin
stringgrid1.Cells[0,i]:=inttostr(i)+'. Zeile';
stringgrid1.Cells[i,0]:=inttostr(i)+'. Spalte';

stringgrid1.Cells[11,0]:='Summe';
stringgrid1.Cells[12,0]:='Mittelwert';

stringgrid1.Cells[0,11]:='Summe';
stringgrid1.Cells[0,12]:='Mittelwert';
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i, j, summe: integer;
begin
summe:=0;
randomize;
for i:=1 to 10 do
for j:=1 to 10 do
begin
feld[i,j]:= random(101);
stringgrid1.Cells[i,j]:= inttostr(feld[i,j]);
end;
stringgrid1.Cells[11,1]:= inttostr(summe);
end;

end.

Ihr könnt euch, wenn ihr wollt auch die delphi files downloaden
http://rapidshare.com/files/246388666/Array.rar

Danke schonmal

PS: Habe eigentlich schon weitaus schwierigere Aufgaben gelöst, aber hier weiß ich einfach nicht weiter.
da ich dauernd, anstatt der Summe, der einzelnen Zeile, die Summe aller 100 Zufallszahlen ausgegeben bekomme ^^