Найти среднее арифметическое элементов для каждой строки двухмерного массива — Pascal(Паскаль)

uses crt;
var
    i,j,k,n:integer;
    a:array[1..100,1..100] of integer;
    x:array[1..100] of integer;
    b:array[1..100] of integer;
begin
 clrscr;
 randomize;
 write ('Введите количество элементов: ');
 readln (n);
 for i:=1 to n do
  for j:=1 to n do
  a[i,j]:=random (100);
   begin
    for i:=1 to n do
     begin
      for j:=1 to n do
      write (a[i,j]:3);
      writeln;
     end;
   end;
 for i:=1 to n do
  begin
   x[i]:=0;
   for j:=1 to n do
   x[i]:=x[i]+a[i,j];                  
  end;
 for i:=1 to n do                      
  b[i]:=x[i]/n.
  writeln ('Новый массив: ');
   for i:=1 to n do
   write (b[i]:3);
 readkey;
end.