массив (delphi)

[konj]

В одномерном массиве, состоящем из n вещественных элементов:
1) определить каких элементов больше – положительных нечетных или отрицательных четных;
2) определить, все ли элементы массива простые числа.
3)Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в нечетных позициях, а во второй половине – элементы, стоявшие в четных позициях.

[konj]

я их написал, теперь все соеденить в одну программу надо...
помогите

1)

program Project2;

{$APPTYPE CONSOLE}


Var
A:array[1..20] of integer;
I,n,k,g:integer;
Begin
Write('n');read(n);
For i:=1 to n do
Begin
Write('a[i]');read(a[i]);
End;
For i:=1 to n do
G:=0;
K:=0;
Begin
If (a[i]>0) and (a[i]mod 2<>0) then inc(k);
If (a[i]<0) and (a[i]mod 2=0) then inc(g);
If K>g  then write('polojitelnih nechet bolshe')else write('otricatelnih chet bolshe');
End;
readln;
readln;
end.

2)

 program Project3;

{$APPTYPE CONSOLE}
Var
A:array[1..20] of integer;
I,n,k,g,f:integer;
Begin
Write('n');read(n);
For i:=1 to n do
Begin
Write('a[i]');read(a[i]);
End;
F:=0;
For i:=2 to n div 2 do
 begin
If n mod i<>0 then inc(f);
Writeln('net'); if f=0 then write('da');
Readln;
Readln;
end;
end.

3)

program Project34;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a:array[1..10] of integer; {Массив}
b:array[1..10] of integer;
left, right, rez: integer;
    i,j,max:integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
 for i:=1 to 10 do
  begin
    write('a[',i,']=');
    readln(a[i]);
  end;
  max:=a[1];
  for i:=2 to 10 do
    if a[i]>max then max:=a[i];
  write('maximalnii element=',max);
  readln;

   begin
   rez := 1;
  Write('Proizvedenie mezdu nuliami=');
   Write;

   for i:= 1 to 10 do
   if a[i]=0 then begin left:=i;
   Break;
end;

   for i:= left+1 to 10 do
   if a[i]=0 then begin right:= i;
   Break;
end;

   for i:=left+1 to right-1 do
   rez:= rez*a[i];
end;
   Write(rez);
   Readln;

begin
for j:=1 to 10 do
begin
 write('b[',j,']=');
    readln(b[j]);
    end;
if  (j mod 2)=0 then begin right:=j;
if (j mod 2)<>0 then begin left:=j;
end;
readln;
end;
end;
end.

[konj]

всё в одно надо забацать..... кто нибудь помогите