ayuda urgente programa

[frenesick]

tengo un problema con este programa no me quiere correr y me urge, si alguien que sepa me puede ayudar se lo agradecere mucho, soy nuevo en esta onda y pss nose donde este equivocado segun yo esta bien pero no me quiere correr, nose si sea error de sintaxis o todo este mal, gracias



se tiene dos conjuntos de datos
c1: c2:
43.31 18.43
14.22 19.21
16.87 20.30
13.29 10.11
12.16

1.- lea el conjunto c2 ordelo en forma creciente.
2.- lea e intercale el conjunto c1 en el c2.
3.- ordene en forma decreciente el conjunto resultante.
4.- saque el promedio del conjunto.
5.- escriba la lista ordena y el promedio.
6.- haga una lista ordenada creciente de los numeros superiores al promedio.
7.- haga una lista ordenada decreciente de los numeros inferiores del promedio.
8.-escriba las dos listas.



program tarea;

uses crt;
1.- const c1:array [1..5] of integer=(43.31,14.22,16.87,13.29,12.16);
c2:array [1..4] of integer=(18.43,19.21,20.30,10.11);
var
N,i,j,aux,p,x,suma,media:integer;
N:=4

for i:=1 to N-1 do
j:=i+1 to N do
if c2[i]> c2[j] then

begin
clrscr;
aux:=c2[j];
c2[j]:=c2[i];
c2[i]:=aux;

2.- p:=c1+c2;
x:=9
for i:=1 to x-1 do
j:=i+1 to x do
3.- if p[i] < p[j] then


begin
4.- aux:=p[j];
p[j]:=p[i];
p[i]:=aux;

suma:=suma+p;
media:=(suma/x);

5.- writeln('escriba lista:p'); readln (p);
writeln('escriba el proimedio:media'); readln (media)


6.- if numsup:=>media;
7.- if numinf:=<media;

8.- writeln('escriba lista superior:numsup'); readln (numsup)
writeln('escriba lista inferior:numinf'); readln (numinf)

end,
end.