Операции с массивами, используя процедуры и функции

Program Lab_2;
const nmax=10;
type mas=array[1..nmax] of integer;
     matr=array[1..nmax] of mas;
procedure matrica(var a:matr; n,m:byte);
var i,j:byte;
begin
    repeat
    write('Количество строк до ',nmax,' n=');
    readln(n);
    until n in [1..nmax];
    repeat
    write('Количество столбцов до ',nmax,' m=');
    readln(m);
    until m in [1..nmax];
    writeln('Исходная матрица:');
    for i:=1 to n do begin
          for j:=1 to m do begin
             a[i,j]:=random(19)-9;
             write(a[i,j]:4);
          end;
          writeln;
    end;
    writeln;
end;
function pervye_polozhytelnye(var b:mas;a:matr):byte;
var n,m,i,j:byte;
begin
     for i:=1 to n do begin
         j:=1;
         while (j<=m) and (odd(a[i,j]))  do
              j:=j+1;
         if j>m then b[i]:=0
              else b[i]:=j;
         end;
     writeln('Полученная матрица:');
     for i:=1 to n do
        write(b[i]:4);
     writeln;
end;
function kolichestvo_ne_nylevyx (b:mas):byte;
var i,n,nenyley,nyley:byte;
begin
    nenyley:=0;
    nyley:=0;
    for i:=1 to n do
        if b[i]<>0 then nenyley:=nenyley+1
            else nyley:=nyley+1;
    if nyley=n then writeln ('Все нули')
            else begin
                writeln('Количество не нулей:');
                writeln (nenyley);
            end;
    writeln;
end;
procedure sortirivka(var a:matr;
                         n,m:byte);
var i,j,k,v:byte;
begin
    for j:=1 to n do
        for k:=2 to m do begin
            v:=a[k,j];
            i:=k-1;
            while (i>0) and (v<a[i,j]) do begin
                a[i+1,j]:=a[i,j];
                i:=i-1;
            end;
         a[i+1,j]:=v;
     end;
     writeln('Полученная матрица:');
     for i:=1 to n do begin
          for j:=1 to m do
              write(a[i,j]:4);
          writeln;
     end;
     writeln;
end;
var a:matr;
    b:mas;
    m,n,nenyley,nyley:byte;
begin
randomize;
matrica(a,n,m);
pervye_polozhytelnye(b,a);
kolichestvo_ne_nylevyx(b);
sortirivka(a,n,m);
end.

const nmax=10;
type mas=array[1..nmax] of integer;
     matr=array[1..nmax] of mas;
var  a:matr;
     b:mas;
     i,j,n,m,nyley,nenyley,k,v:integer; 
begin
    randomize; 
    repeat
    write('Количество строк до ',nmax,' n=');
    readln(n);
    until n in [1..nmax];
    repeat
    write('Количество столбцов до ',nmax,' m=');
    readln(m);
    until m in [1..nmax];
    writeln('Исходная матрица:');
    for i:=1 to n do
       for j:=1 to m do
           a[i,j]:=random(19)-9;
    for i:=1 to n do begin
        writeln;
        for j:=1 to m do
            write(a[i,j]:4);
        end;
    for i:=1 to n do begin
        j:=1;
        while (j<=m) and ((odd(a[i,j])) or (a[i,j]=0)) do
            j:=j+1;
        if j>m then b[i]:=0
            else b[i]:=j;
    end;
    writeln;
    writeln;
    writeln('Полученная матрица:');
    for i:=1 to n do
        write(b[i]:4);
        nenyley:=0;
        nyley:=0;
    for i:=1 to n do
        if b[i]<>0 then nenyley:=nenyley+1
            else nyley:=nyley+1;
            writeln;
            writeln;
        if nyley=n then writeln ('Все нули')
            else begin
                 writeln('Количество не нулей:'); 
                 writeln (nenyley);
            end;
     writeln;
     for j:=1 to n do
        for k:=2 to m do begin
            v:=a[k,j];
            i:=k-1;
            while (i>0) and (v<a[i,j]) do begin
                a[i+1,j]:=a[i,j];
                i:=i-1;
            end;
         a[i+1,j]:=v;
     end;
     writeln('Полученная матрица:');
     for i:=1 to n do begin
          for j:=1 to m do
              write(a[i,j]:4);
          writeln;
     end;
     writeln;
end.

while (j<=m) and ((odd(a[i,j])) or (a[i,j]=0)) do

Program Lab_2;
const nmax=10;
type mas=array[1..nmax] of integer;
     matr=array[1..nmax] of mas;
     var a:matr;
    b:mas;
    n,m,nyley,nenyley,k,v:integer;
procedure matrica();
var i,j:byte;
begin
    repeat
    write('Количество строк до ',nmax,' n=');
    readln(n);
    until n in [1..nmax];
    repeat
    write('Количество столбцов до ',nmax,' m=');
    readln(m);
    until m in [1..nmax];
    writeln('Исходная матрица:');
    for i:=1 to n do begin
          for j:=1 to m do begin
             a[i,j]:=random(19)-9;
             write(a[i,j]:4);
          end;
          writeln;
    end;
    writeln;
end;
procedure pervye_polozhytelnye();
var i,j:byte;
begin
     for i:=1 to n do begin
         j:=1;
         while (j<=m) and ((odd(a[i,j])) or (a[i,j]=0)) do
              j:=j+1;
         if j>m then b[i]:=0
              else b[i]:=j;
         end;
     writeln('Полученная матрица:');
     for i:=1 to n do
        write(b[i]:4);
     writeln;
end;
procedure kolichestvo_ne_nylevyx ();
var i,nenyley,nyley:byte;
begin
    nenyley:=0;
    nyley:=0;
    for i:=1 to n do
        if b[i]<>0 then nenyley:=nenyley+1
            else nyley:=nyley+1;
    if nyley=n then writeln ('Все нули')
            else begin
                writeln('Количество не нулей:');
                writeln (nenyley);
            end;
    writeln;
end;
procedure sortirivka();
var i,j,k:byte;
begin
    for j:=1 to n do
        for k:=2 to m do begin
            v:=a[k,j];
            i:=k-1;
            while (i>0) and (v<a[i,j]) do begin
                a[i+1,j]:=a[i,j];
                i:=i-1;
            end;
         a[i+1,j]:=v;
     end;
     writeln('Полученная матрица:');
     for i:=1 to n do begin
          for j:=1 to m do
              write(a[i,j]:4);
          writeln;
     end;
     writeln;
end;
 
begin
randomize;
matrica();
pervye_polozhytelnye();
kolichestvo_ne_nylevyx();
sortirivka();
end.