Найти сумму элементов последней строки матрицы

9.  Program Kernait4;
const
N  =  10;
M  =   15;
var
A:array[1..N,1..M]   of   real;
x,y: byte;
i, j : byte;
su : real;
BEGIN
write ( 'Введите количество строк:') ;
read (x) ;
write ('Введите количество столбцов:') ;
read (y) ;
for  i:=1   to  x do
for   j:=1   to  y  do
begin
write ('A[' , i , ' , ' , j , ']=');
read(A[i,j]);
end;
writeLn
( 'Ввод матрицы завершен') ;
writeln(' Матрица A:');
for   i:=1   to  x  do
begin
for   j:=1   to  y do
write(A [i,j] :6 :2) ;
writeln;
end;
writeln ('Вывод матрицы завершён') ;
begin
su:=0;
i:=x;
For J:=1 to y do
su:=su+A[i,j];
begin
end;
writeln('');
writeln('Сумма последней строки=',su);
begin
for x:= 1 to i do
 for y:= 1 to j do
  begin
  if su>0 then
  if A[x,y]>0 then A[x,y]:= su;
  writeln(' Матрица A:');
for   i:=1   to  x  do
begin
for   j:=1   to  y do
write(A [i,j] :6 :2) ;
writeln;
  end;
   begin
  if su<0 then
  if A[x,y]<0 then A[x,y]:= su;
writeln(' Матрица A:');
end;
for   i:=1   to  x  do
begin
for   j:=1   to  y do
write(A [i,j] :6 :2) ;
writeln;
 end;
 writeln ('Вывод матрицы завершён') ;
 end;
 end;
 end;
 end.

uses crt;
var a,b:array[1..10,1..15] of integer;
i,n,m,j,s:integer;
BEGIN
clrscr;
write('n = ');
read(n);
write('m = ');
read(m);
 for i:=1 to n do
  for j:=1 to m do
   a[i,j]:=random(10)-5;
 
   for i:=1 to n do
   begin
    for j:=1 to m do
     write(a[i,j]:4);
     writeln;
     end;
 
     writeln;
 
     for j:=1 to m do
      s:=s+a[n,j];
     writeln;
 
     writeln('S = ',s);
    writeln;
      if s>0 then
       begin
        for i:=1 to n do
         for j:=1 to m do
          if a[i,j]>0 then
           a[i,j]:=s;
       end
        else
         begin
         for i:=1 to n do
          for j:=1 to m do
           if a[i,j]<0 then
            a[i,j]:=s;
         end;
 
         for i:=1 to n do
          begin
          for j:=1 to m do
           write(a[i,j]:4);
            writeln;
            end;
readkey;
END.