Задачи в Паскале

[12345436]

1.Задание.
Составить программу, определяющую наибольшее число из четырех, введенных с клавиатуры чисел. Для определения наибольшего из двух чисел написать подпрограмму.
2 Задание
2.1 Ввести размерность n массива x и его элементы с клавиатуры. Удалить из массива x состоящего из n элементов первые 4 нуля.
2.2 Задать размерность и элементы массива константой. Подсчитать сумму положительных и четных по индексу элементов.
2.3 Сортировать массив так что бы с начало шли отрицательные элементы, затем положительные, а потом равные нулю.

P/S:Помогите пожалуйста.

[IT-man]

{1}
function Max(a,b:real):real;
begin
Max:=b;
if a>b then Max:=a
end;
var x1,x2,x3,x4:real;
begin
writeln('BBeguTe 4 4ucJIa: ');
readln(x1,x2,x3,x4);
writeln(max(max(x1,x2),max(x3,x4)):6:3);
readln;
end.

{2.1}

const nmax=100;
var n:integer;
i,j:integer;
x:array[1..nmax] of real;
k:integer;
begin
write('n=');readln(n);
for i:=1 to n do
begin
write('[',i,']=');readln(x[i]);
end;
k:=0;
writeln('==old array==');
for i:=1 to n do
begin
write(x[i]:6:3);
end;
writeln;
i:=1;
while (i<=n) and (k<4) do
begin
if x[i]=0 then begin
for j:=i to n-1 do
x[j]:=x[j+1];
k:=k+1;n:=n-1;
end
else inc(i);
end;
writeln('==new array==');
for i:=1 to n do
begin
write(x[i]:6:3);
end;
readln;
end.

{2.2}

const n=10;
var
i,j:integer;
y:array[1..n]of real =(1,2,3,4,5,6,-7,-8,9,-10);
s:real;
begin
s:=0;
writeln('==array==');
for i:=1 to n do
begin
if (y[i]>0) and (i mod 2 =0) then s:=s+y[i];
write(y[i]:8:2);
end;
writeln;
writeln('CyMMa=',s:6:3);
readln;
end.

{2.3}

const nmax=10;
var n:integer;
i,j,k:integer;
a,b:array[1..nmax] of real;
begin
write('n=');readln(n);
for i:=1 to n do
begin
write('[',i,']=');readln(a[i]);
end;
k:=0;
writeln('==old array==');
for i:=1 to n do
begin
write(a[i]:6:3);
end;
for i:=1 to n do
if a[i]<0 then begin k:=k+1;b[k]:=a[i];end;
for i:=1 to n do
if a[i]>0 then begin k:=k+1;b[k]:=a[i];end;
for i:=1 to n do
if a[i]=0 then begin k:=k+1;b[k]:=a[i];end;
writeln;
for i:=1 to n do
begin
a[i]:=b[i];
end;
writeln('==new array==');
for i:=1 to n do
begin
write(a[i]:6:3);
end;
readln;
end.