Написать основную процедуру

[to-ot]

Здравствуйте помогите пожалуйста написать основную процедуру,в оконном приложении, надо что бы с (implementation) было, вот пример как должно быть только надо под мое задание!

Множество значений, имеющихся в массиве D, которых нет в массиве С, и которые не равны А, Значение А задано!Сумма найденых значений!


ПРИМЕР
unit Unit2;


interface
procedure Prz_P_O(x:array of real;Var P:real;var k:integer);
implementation
procedure Prz_P_O;
Var i:integer;
begin
P:=1;
k:=0;
for i:=Low(x) to High(x) do
if (x[i]>0)and(i mod 2<>0) then
begin
k:=1;
P:=P*x[i];
end;
end;
end.