Найти среднее арифметическое элементов в каждой строке квадратной матрицы

uses crt;
var s,sl,smax: string;
    i,dmax: integer;
begin
write('Введите строку ');
readln(s);
s:=s+' '; sl:='';dmax:=0;
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i]
       else
       begin
       if length(sl)>dmax then
          begin
          dmax:=length(sl);
          smax:=sl;
          end;
       sl:='';
       end;
writeln ('Самое длинное слово "',smax,'" длиной в ',dmax,' символов');
readkey
end.

uses crt;
var b: array [1..100,1..100] of integer;
    c: array [1..100] of real;
    n,i,j,sum: integer;
begin
write('n=');
readln(n);
writeln('Дан массив');
for i:=1 to n do
    begin
    sum:=0;
    for j:=1 to n do
        begin
        b[i,j]:=random(19)-9;
        write(b[i,j]:5);
        inc(sum,b[i,j]);
        end;
    writeln;
    c[i]:=sum/n;
    end;
writeln('Среднее арифметическое по строкам ');
for i:=1 to n do
    write(c[i]:5:1);
readkey
end.