Вычислить суммы элементов каждой строки матрицы

uses crt;
const n=4;
      m=6;
      c:array[1..n,1..n] of real=((2.28,3.4,10,38),
                                  (6.2,12,25,11.4),
                                  (0.92,82,4.4,36),
                                  (8.7,5.5,0.71,0.2));
      x:array[1..m] of integer=(12,14,16,32,45,102);
      b1=2.5e-3;
function Z(sm:real;i:integer):real;
begin
Z:=x[i]*sm+sqrt(sm/b1);
end;
var i,j:integer;
    s,sm:real;
begin
clrscr;
writeln('Матрица C');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(c[i,j]:7:2);
  writeln;
 end;
writeln('Суммы в строках матрицы');
for i:=1 to n do
 begin
  s:=0;
  for j:=1 to n do
  s:=s+c[i,j];
  if i=1 then sm:=s
  else if s>sm then sm:=s;
  writeln('строка ',i,'=',s:0:2);
 end;
writeln('Максимальная сумма sm=',sm:0:2);
writeln('Значения Z');
for i:=1 to m do
write(Z(sm,i):9:2);
readln
end.