Двумерный массив!

[Snowwa]

Ребят, можете помочь пожалуйста? Вроде не трудная задача, а без понятия как сделать...

A(N,M) Вычислить и запомнить суммы и числа элементов каждой строки матрицы. Результат отпечатать в виде двух столбцов. N<=20;M<=15

Если не трудно, Буду огромно благодарен

[dekameron]

PROGRAM qwerty;
USES Crt;
CONST
 n=15; m=20;
VAR 
  a:array[1..n,1..m] of integer;
  rows:array[1..m]of integer;
  cols:array[1..n]of integer;
  i,j:integer;
BEGIN
clrscr;
for i:=1 to n do
  for j:=1 to m do
    begin
      write('a[',i,',',j,']=');
      readln(a[i,j]);
      clrscr;
    end;
for i:=1 to n do
  for j:=1 to m do
    begin
      rows[i]:=rows[i]+a[i,j];
      cols[j]:=cols[j]+a[i,j];
    end;
{rows - суммы по строчкам; cols - по столбцам}
repeat read until keypressed;
END.

[Stilet]

var a:array[1..n,1..m+2] of integer;
i,j:byte;
begin
 for i:=1 to n do begin
  for j:=1 to m do begin
    a[i,j]:=random(100);
    a[i,m+1]:=j;
    a[i,m+2]:=a[i,j]+a[i,m+2];
  end;
 end;
end.

Это насколько я понял. Вывод докрути сам(а), припиши Write

[niktmb]

Сообщение от Stilet

var a:array[1..n,1..m+2] of integer;
i,j:byte;
begin
 for i:=1 to n do begin
  for j:=1 to m do begin
    a[i,j]:=random(100);
    a[i,m+1]:=j;
    a[i,m+2]:=a[i,j]+a[i,m+2];
  end;
 end;
end.

Это насколько я понял. Вывод докрути сам(а), припиши Write

Пожалуйста напиши полностью текст проги а то я не шарю а мне нужна такая же прога