задача на матрицу Pascal

[владимир/к.]

дана матрица A размерности N*N. Сформировать вектор B(N), компанентами которого являются суммы квадратов элементов строк матрици A.
Помогите пожалуйсто с решением((((

[Sazary]

uses crt;
var
a : array[1..100,1..100] of integer;
b : array[1..100] of longint;
n,i,j : integer;
begin
clrscr;
randomize;
write('Enter n: ');
readln(n);
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  a[i,j] := random(20);
  write(a[i,j]:5);
  end;
 writeln;
 end;
writeln('------');
{-----}
writeln('Vector b: ');

for i:=1 to n do
 begin
 b[i] := 0;
 for j:=1 to n do
  b[i] := b[i] + sqr(a[i,j]);
 write(b[i]:6);
 end;

readln;
end.

[владимир/к.]

спасибо огромное вам!))))) очень выручили