Как объеденят две программы в Паскале?

[GHOST_DOG]

Помогите пожалуйста объеденить через функцию. Чтобы типа при нажатии кнопки, 1-я выполнялаь, а при нажатии другой-2-я.

program Predlojenie;
uses crt;
var a:array[1..10] of integer;
    i,s:integer; k:real;
begin
clrscr;
writeln('╔═════════════════════════════════════════════════════╗');
writeln('║Дан массив A(n), состоящий из целых чисел. Определить  ║');
writeln('║кол-во элементов, являющихся квадратами четных чисел.║');
writeln('╚═════════════════════════════════════════════════════╝');
s:=0;
writeln('Введите числа:');
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
begin
if a[i] mod 2 = 0 then k:=sqr(a[i]);
if k=sqr(a[i]) then
s:=s+1;
end;
writeln('Количество элементов:');
write(s);
readkey;
end.

с этой

program zadacha2;
uses crt;
var a:array[1..10] of integer;
    i:integer;
begin
clrscr;
writeln('╔══════════════════════════════════════════════════╗');
writeln('║Дан массив A(n). Вывести в порядке следования все ║');
writeln('║отрицательные числа, затем все положительные числа║');
writeln('╚══════════════════════════════════════════════════╝');
writeln('Введите отрицательные и положительные числа:');
     for i:=1 to 10 do
read(a[i]);
writeln;
     writeln('Отрицательные числа:');
     for i:=1 to 10 do
     if a[i]<0 then write(' ',a[i]);
writeln;
     writeln('Положительные числа:');
     for i:=1 to 10 do
     if a[i]>0 then write(' ',a[i]);
     readkey;
     end.
readkey;
end.

[Sazary]

Запихните первый листинг в первую процедуру (естественно, без program и uses), а вторую - во вторую.
В теле самой программы читайте символ (или число) и в зависимости от того, что ввели, вызывайте соответствующую процедуру.

[GHOST_DOG]

Сообщение от Sazary

Запихните первый листинг в первую процедуру (естественно, без program и uses), а вторую - во вторую.
В теле самой программы читайте символ (или число) и в зависимости от того, что ввели, вызывайте соответствующую процедуру.

Спасибо вам.