Матрицы действительных чисел. Паскаль.

[zmey1]

Спасибо, со вводом числа строк разобрался!=)
А на счет вычисления суммы диагоналей...
Кто нибудь, Help me Please=)

Вот полный код...

Const
   MaxN = 100;
   MaxM = 100;
var A : array[1..MaxN,1..MAxM] of integer;
  n,m : integer;
  s,w,d,i,j:integer;
Begin
Randomize;

repeat
    Write('Введите число строк матрицы: ');
    Readln(n);
    if (n<1) or (n>MaxN) then WriteLn('Ошибка. Число строк должно быть от 1 до ',MaxN);
  until (n>=1) and (n<=MaxN);
m:=n;

For i:=1 to n do
begin
For j:=1 to m do
begin
a[i,j]:=random(6); 
write(a[I,j]:4);
end;
writeln;
end;

For i:=1 to n do
Begin
s:=0;
For j:=1 to m do
s:=s+a[i,j];
writeln ('Сумма ',I,' строки ',s);
end;

readln;
For j:=1 to m do
Begin
d:=0;
For i:=1 to n do
d:=d+a[i,j];
writeln ('Сумма ',j,' столбцов ',d);
end;
readln;

end.