Вычислить среднеарифметическое значение элементов для каждой строки матрицы в Delphi

[Any13]

Подскажите, пожалуйста. Вот написала программу, все работает, но считает среднее арифмитическое только для последней строки, а не для каждой. Объясните в чем ошибка. Вот код.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, Grids;
type
TForm1 = class(TForm)
Button1: TButton;
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
LabeledEdit3: TLabeledEdit;
LabeledEdit4: TLabeledEdit;
LabeledEdit5: TLabeledEdit;
StringGrid1: TStringGrid;
Button2: TButton;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var n,m,xn,xk,i,j:integer;
Ssr:real;
x:array of array of integer;
begin
randomize;
n:=strToInt(LabeledEdit1.Text);
m:=strToInt(LabeledEdit2.Text);
xn:=strToInt(LabeledEdit3.Text);
xk:=strToInt(LabeledEdit4.Text);
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=m;
Setlength(x,n,m);
for i:=0 to n-1 do
begin
Ssr:=0;
for j:=0 to m-1 do
Begin
x[i,j]:=random(xk-xn+1)+xn;
StringGrid1.Cells[j,i]:=IntToStr(x[i,j]);
Ssr:=Ssr+x[i,j];
end;
Ssr:=Ssr/m;
LabeledEdit5.Text:=FormatFloat('0.0 0',Ssr);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
LabeledEdit1.Clear;
LabeledEdit2.Clear;
LabeledEdit3.Clear;
LabeledEdit4.Clear;
LabeledEdit5.Clear;
end;
end.
end;
end.

[profi]

LabeledEdit5.Text:= LabeledEdit5.Text +FormatFloat('0.0 0',Ssr) + '   ';

[shelest]

программа в консольном режиме, думаю переделать в обьектно ориентированый вид не сложно

 program project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var p:integer;
type matr=array[1..100,1..100]  of integer;
var c:matr;
var i,j,k,n,m: integer;
procedure vvod_matrici (var c:matr);
var i,j: integer;
begin
writeln ('vvedite matricu');
 for I := 1 to n do
    for j := 1 to m do
    readln (c[i,j]);
end;
procedure vvod_matrici2 (var c:matr);
var i,j: integer;
begin
  randomize;
  for i:=1 to n do
  for j := 1 to m do
  c[i,j]:=1+random(11);
end;
procedure vivod_matrici (var c:matr);
var i,j: integer;
begin
for I := 1 to n do
begin
  for j := 1 to m do
  write(c[i,j]:6);
  writeln
end;
end;
 procedure vektor (c:matr);
Var  sr:integer;
 Begin
write ('koordinaty vektora B:');
for i:=1 to n do
Begin
sr:=0;
for j:=1 to m do
sr:=sr+c[i,j];
Write (sr div m:3);
End;

End;
begin
 writeln ('Vvedi kolichestvo strok');
 readln(n);
 writeln ('Vvedite kolichestvo stolbcov');
 readln (m);
 writeln ('vvedi 1 esli vvod sluchaen 0 esli s klaviaturi');
 readln (p);
 if p=1 then vvod_matrici2(c);
 if p=0 then vvod_matrici(c);
 vivod_matrici(c);
 vektor(c);

  readln
end.

[Any13]

profi, shelest Спасибо вам, добрые люди!) Все заработало) Еще раз благодарствую.