Доработка кода

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils,Windows;
 
var
  x: array of array of integer;
  y: array of integer;
  n, m, k, i, j, s: integer;
 
begin
  SetConsoleCp( 1251 );
  SetConsoleOutputCp( 1251 );
  s:=0;
  write( 'n=' );
  readln( n );
  write( 'm=' );
  readln( m );
  setlength( x, n, m );
 
   writeln( 'Ввод элементов матрицы:' );
  for i := 0 to n - 1 do
  begin
    for j := 0 to m - 1 do
    begin
      Write( 'x[ ', i, ' ', j, ' ] = ' );
      ReadLn( x[ i, j ] );
        if x[i,j]=0 then
          inc(s);
    end;
    writeln;
  end;
 
  writeln( 'Матрица вида:' );
  for i := 0 to n - 1 do
    begin
      for j := 0 to m - 1 do
        write( x[ i, j ] : 4 );
    writeln;
    end;
 
  if s=m*n then
    begin
      writeln('Нулевая матрица');
      {sleep(5000);
      halt;}
      readln;
    end
  else
  begin
    k := 0;
    i := 0;
    while i < n do
      begin
        inc( k );
        setlength( y, k );
 
        for j := 0 to m - 1 do begin
          if x[ i,j ] < 0 then
             writeln( 'Положительных чисел нет' );
          if x[ i,j ] > 0 then
            y[ k - 1 ] := y[ k - 1 ] + x[ i, j ];
            end;
               inc( i,2 );
  end;
  writeln( 'Одномерный массив' );
  for i := 0 to k - 1 do
    write( y[ i ] : 4 );
  readln;
  end;
 
end.

program Matrix;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
var
z:boolean;
a:array of array of integer;
n,m,i,j,k,s,r:integer;
 
procedure rus(s:string);
var
p:PChar;
begin
p:=StrAlloc(Length(s)+1);
CharToOem(PChar(s),p);
write(p);
StrDispose(p);
end;
 
procedure rusln(s:string);
begin
rus(s);
writeln;
end;
 
begin
rusln('Ввод матрицы A.');
rus('Введите количество строк n: ');
readln(n);
rus('Введите количество столбцов m: ');
readln(m);
setlength(a,n,m);
for i:=0 to n-1 do
for j:=0 to m-1 do
begin
rus('Введите элемент A[');
write(i+1,',',j+1,']: ');
ReadLn(a[i,j]);
end;
writeln;
rusln('Вывод матрицы A.');
for i:=0 to n-1 do
begin
for j:=0 to m-1 do
write(a[i,j],' ');
writeln;
end;
writeln;
rusln('Результаты вычисления.');
z:=true;
for i:=0 to n-1 do
for j:=0 to m-1 do
if a[i,j]<>0 then
z:=false;
if z then
rusln('Нулевая матрица')
else
begin
z:=true;
s:=0;
for i:=0 to n-1 do
begin
k:=i+1;
if k mod 2=1 then
begin
r:=0;
for j:=0 to m-1 do
if a[i,j]>0 then
r:=r+a[i,j];
rus('Сумма положительных элементов в строке '+inttostr(k)+': ');
if r=0 then
rusln('положительных элементов нет.')
else
begin
writeln(r);
z:=false;
end;
s:=s+r;
end;
end;
rus('Общая сумма положительных элементов в нечетных строках матрицы A: ');
if z then
rusln('положительных элементов нет.')
else
writeln(s);
end;
readln;
end.