В заданном целочисленном двумерном массиве найти среднее арифметическое в каждой строке

[Rise]

Проверьте пожалуйста задачку..
В заданном целочисленном двумерном массиве найти среднее арифметическое в каждой строке и сформировать одномерный массив из них.
Было несколько вариантов решения, но во всех программа выдавала ошибку "Несоответствие типов" при делении элемента массива на n (число равное кол-ву элементов строки)

Program Ex13_1;
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.

[Tkirill]

uses crt;
const
n=5;
var
mas:array[1..n,1..n] of integer;
ar:array[1..n] of real;
i,j,k:integer;
sr:real;
begin
clrscr;
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
   mas[i,j]:=random(10);
   write(mas[i,j],'  ');
   end;
  writeln;
 end;
writeln;
k:=0;
for i:=1 to n do
 begin
  sr:=0;
  for j:=1 to n do
   sr:=sr+mas[i,j];
 sr:=sr/n;
 k:=k+1;
 ar[k]:=sr;
 end;
writeln;
for i:=1 to k do
 write(ar[i]:2:1,'  ');
readln;
end.

[Rise]

Упс, оперативно. Спасибо огромное!!!

[Tkirill]

Ато ) )))
незачто
с тебя отзыв ))