Паскаль (Квадратная матрица)

[Bykvaeshka]

Добрый вечер всем. Помогите пажалуйста с решением лабы в Паскале.
Задана квадратная матрица А размером N*N (N<=10), состоящая из действительных элементов. Сформировать вектор из суммы элементов строк и найти их среднее арифметическое.
Прошу помощи, могу оказать материальную помощь за верно решенную программу и блок схему ^^ (359-054-040)

[DM_bite]

program Xd;
const n=10;
var a:array [0..n,0..n] of integer;
    b:array [0..n] of integer;
    sum,i,j,sr: integer;
    begin
    randomize;
    for i:= 0 to n do
     for j:= 0 to n do
     begin
     a[i][j]:= random(i*j);
     end;
     for i:= 0 to n do
     begin
      for j:= 0 to n do
      begin
      Write(a[i][j],' $');
      end;
      WriteLn;
      end;
     for i:= 0 to n do
      begin
      sum:= 0;
       for j:= 0 to n do
       begin
      sum:= a[i][j]+sum;
      sr:= sum div n;
       b[i]:= sum;
       end;
       Write(b[i],'^ ');
         Write(sr,'# ');
       end;
       WriteLn;
       ReadLn;
       end.

#-среднее значение элемента вектора, ^-элемент вектора, ну и $-элемент матрицы.Надеюсь, ничего не упустил.

[Bykvaeshka]

Спасибо Большое!