прикладная математика

Program Lab_5;
uses
     crt;
const
     n=10;
var
     a: array[1..n, 1..n] of integer;
     pos,neg,x: array[1..100] of integer;
     i,j,k,z,y,t: integer;
procedure matrix;
     begin
        randomize;
        for i:=1 to n do
           for j:=1 to n do
              a[i,j]:=random(19)-9;
     end;
procedure write_matrix;
     begin
        for i:=1 to n do
           begin
              for j:=1 to n do
              write(a[i,j]:2,' ');
              writeln;
              writeln;
           end;
     end;
procedure vector;
     begin
       k:=0;
       z:=0;
       for j:=1 to n do begin
       for i:=1 to n  do begin
       if a[i,j] > 0 then begin k:=k+1; pos[k]:=a[i,j]; end;
       if a[i,j] < 0 then begin z:=z+1; neg[z]:=a[i,j]; end; end; end;
       t:=k+z;
       for i:=1 to t do begin
          if i mod 2 =0 then begin x[i]:=pos[i div 2]; end;
          if odd(i) then begin x[i]:=neg[i div 2+1]; end; end;

      writeln('Положительный массив');
      for i:=1 to k do begin
      write (pos[i]:3);end;writeln;
      writeln('Отрицательный массив);
      for i:=1 to z do begin
      write (neg[i]:3);end;writeln;

          writeln('Вектор');
          for i:=1 to t do begin
          if x[i]<> 0 then
          write (x[i]:3);end;
     end;

begin
     clrscr;
     matrix;
     write_matrix;
     vector;
     readln;
end.