Использование массивов в качестве параметров в подпрограммах в паскале...проверьте

[zizu]

1)(исправить программу чтобы она зароботала)Элементы целочисленного массива строго упорядочены в порядке возрастания. Если в массиве имеется элемент, равный заданному значению , то отпечатать количество и сумму предшествующих ему элементов. Среднее количество проверок массива не должно пре-вышать .

Program Task116;
Const Nmax = 500;
Type Ar = array[1..Nmax] of integer;
Var i,k,n : word;
b,Num,Sum : integer;
X : Ar;
{ ------------------------------ }
Function BinarySearche(Var A:Ar; n:word; b:integer):word;
{ Двоичный поиск элемента в массиве }
Var k1,k2,m : word;
R : integer;
Begin
k1:=1; k2:=n;
BinarySearche:=0;
While k1<=k2 do
Begin
m:=(k1+k2) div 2;
If a[m]=b then
Begin
BinarySearche:=m; Exit
End
Else
If a[m]<b then
k1:=m+1
Else
k2:=m-1;
End;
End { BinarySearche };
{ ------------------------------ }
Begin
В в о д n, X, b
k:=BinarySearche(X,n,b);
Num:=0; Sum:=0;
If k>1 then
Begin
For i:=1 to k-1 do
Sum:=Sum+x[i];
Num:=k-1;
End;
П е ч а т ь Num, Sum
End.
2)Определить, имеются ли в массиве целых чисел совпадающие элементы. Если та-кие элементы имеются, то в каждой группе совпадающих элементов оставить два первых по порядку элемента, а остальные удалить из состава массива.
3)Задан произвольный массив целых положительных чисел, не превышающих значения 1000. В массиве могут быть указаны диапазоны, в этом случае конечному элементу диа-пазона условно присваивается отрицательное значение. Развернуть исходный массив в возрастающую последовательность чисел. Например, для массива (15,18,-22,10,4,-7) по-лучим (4,5,6,7,10,15,18,19,20,21,22).

[zizu]

ну как удружите....а то тут разобраться совсем немогу...