Массив. Переписать положительные элементы во второй массив, а остальные — в третий

const
  nmax=100;
type
  tArr=array[1..nmax] of integer;
var
  a,b,c: tArr;
  n,i,k1,k2: integer;
begin
  randomize;
  write('vvedite razmer massiva: ');
  readln(n);
  writeln('ishodnii massiv:');
  for i:=1 to n do
  begin
    a[i]:=random(199)-99;
    write(a[i],' ');
  end;
  writeln;
 
  k1:=0; k2:=0;
  for i:=1 to n do
  begin
    if a[i]>0 then
    begin
      inc(k1);
      b[k1]:=a[i];
    end else
    begin
      inc(k2);
      c[k2]:=a[i];
    end;
  end;
 
  writeln('2-i massiv:');
  for i:=1 to k1 do write(b[i],' ');
  writeln;
  writeln('3-i massiv:');
  for i:=1 to k2 do write(c[i],' ');
  readln;
end.

const
  nmax=100;
type
  tArr=array[1..nmax] of integer;
var
  a: tArr;
  n,i,k: integer;
begin
  randomize;
  write('vvedite razmer massiva: ');
  readln(n);
  for i:=1 to n do
  begin
    write('vvedite ',i,'-i element massiva: ');
    readln(a[i]);
  end;
 
  for i:=1 to n do write(a[i],' '); writeln;
  for i:=1 to n-1 do
    if a[i]<=a[i-1]
    then
    begin
      k:=i;
      break;
    end;
 
  writeln('nomer 1-go elementa: ',i);
  readln;
end.

const
  nmax=100;
type
  tArr=array[1..nmax,1..nmax] of integer;
var
  a: tArr;
  i,j,n,m: integer;
begin
  randomize;
  write('vvedite n,m: ');
  readln(n,m);
  writeln('massiv:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  if (a[1,1] mod 2=0)or(a[1,n] mod 2=0) then
        writeln('imeunsya') else
          writeln('ne imeuytsya');
  readln;
end.

const
  nmax=100;
type
  tArr=array[1..nmax,1..nmax] of integer;
var
  a: tArr;
  i,j,n: integer;
begin
  randomize;
  write('vvedite razmernost massiva: ');
  readln(n);
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
 
  writeln('pobochnaya diagonal snizu vverh:');
  for i:=n downto 1 do
    for j:=1 to n do
      if i=n+1-j then write(a[i,j],' ');
 
  readln;
end.

const
  n=20;
  m=12;
type
  tArr=array[1..n,1..m] of integer;
var
  a: tArr;
  i,j,s1,s2: integer;
begin
  randomize;
  s1:=0; s2:=0;
 
  writeln('zarplani po mesyacam:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(500)+500;
      write(a[i,j],'$ ');
      if j=2 then s1:=s1+a[i,j];
      if j=10 then s2:=s2+a[i,j];
    end;
    writeln;
  end;
  writeln;
 
  if s1<s2 then writeln('v fevrale menshe')
    else if s2<s1 then writeln('v fevrale bolshe')
      else writeln('odinakovo');
  writeln('fevral: ',s1);
  writeln('oktyabr: ',s2);
  readln;
end.