writeln;

writeln('vivesti resyltati v textovij fail (y/n)?');

readln(p);

if p='y' then

  begin

writeln('vvedite imya faila');

readln(st);

assign (f,st);

rewrite(f);

writeln(f,'ishodnij massiv');

For i:=1 to n do

  begin

   For j:=1 to m do

   begin

      write(f,a[i,j]:7:2);

   end;

  writeln(f);

  end;

writeln(f,'symma elementov stroki');

writeln(f,s:7:2);

writeln(f,'ymnozhenie elementov stolbca');

writeln(f,s1:7:2);

close(f);

writeln('zapis provedena');

readln;

end;

end.