выдает ошибку неверная вещественная операция при выполнении действия: s:=round(s/n);

Program laba;

const

 k=10;

 type mas=array[1..k,1..k] of real;

var   a:mas;

 n:word; i,j:byte;   f,r:text; c:byte;   s:real;

 procedure vvod2 (name:string; n:integer; var a:mas);

var i,j:integer; f:text;

begin

   write('n='); readln(n);

assign (f, 'laba.txt');

reset(f);

for i:=1 to n do

    for j:=1 to n do

  begin

   Write('a[' ,i, ',' ,j, ']=');

   read (f, c);

   writeln(c);

  end;

close(f);

end;

function seredne (s:real;n:byte;a:mas):real;

  begin

  for j:=1 to n do

   begin

    j:=j+1;

    for i:=1 to n do

     s:=s+a[i,j];

   end;

    s:=round(s/n);

 end;

 procedure vuvod (name:string; r:text; j:integer; s:real);

 begin

   assign (r, 'rez.txt');

   rewrite(r);

 writeln(r,'середнє арифметичне ',j,' стовпчика s=', s);;

 close(r);

 read;

 end;

 Begin

  vvod2('laba.txt',n,a);

  s:=seredne(s,n,a);

  vuvod('rez.txt',r,j,s);

 end.