Срочная помощь

[hars1]

Доброе время суток. Нуждаюсь в вашей СРОЧНОЙ помощи в решении в край сложной для меня задачи Есть такой исходник :

program z1;
const n=10;
var a: array [1..n] of integer;
    buf,i,P:integer;
    f:byte;
begin
writeln('Введіть елементи масиву');
for i:=1 to n do
    begin
    write('a[',i,']=');
    readln(a[i]);
    end;
write('Введіть P: ');
readln(P);
f:=1;
for i:=1 to n do
    if f=1
       then
       if i mod 2 =0
          then if (a[i]>0) and (a[i]<P)
                  then f:=1
                  else f:=0
          else
       else break;
if f=1
   then begin
        buf:=a[1];
        a[1]:=a[n];
        a[n]:=buf;
        end
   else for i:=1 to n do
        a[i]:=-abs(a[i]);
for i:=1 to n do
    writeln(a[i]);
end.

Но,суть вот в чем: надо переделать эту задачу под процедуры. Мне вчера добрый человек помог с процедурой ввод

Procedure Input;
begin
writeln('Введіть елементи масиву');
for i:=1 to n do
    begin
    write('a[',i,']=');
    readln(a[i]);
    end;
write('Введіть P: ');
readln(P);
End;

теперь же я нуждаюсь в процедуре решение и выввод(и собсна как это все вместе слепить). Буду очень признателен и благодарен за помощь

[ZX Spectrum-128]

Добрый человек вывод тоже оформил

[hars1]

Сообщение от ZX Spectrum-128

Добрый человек вывод тоже оформил

О,и снова здравсвуйте) Если честно, то я настолько слаб в паскале, что понял только ввод, а вывод-нет) Помогите мне с программой,пожалуйсто)

[ZX Spectrum-128]

program z1;
const n=10;
var a: array [1..n] of integer;
    buf,i,P:integer;
    f:byte;

procedure InputP;
begin
 writeln('Введіть елементи масиву');
 for i:=1 to n do
    begin
    write('a[',i,']=');
    readln(a[i]);
    end;
write('Введіть P: ');
readln(P);
end;

Procedure Solution;
begin
f:=1;
for i:=1 to n do
    if f=1
       then
       if i mod 2 =0
          then if (a[i]>0) and (a[i]<P)
                  then f:=1
                  else f:=0
          else
       else break;
if f=1
   then begin
        buf:=a[1];
        a[1]:=a[n];
        a[n]:=buf;
        end
   else for i:=1 to n do
        a[i]:=-abs(a[i]);
end;

procedure OutputP;
begin
for i:=1 to n do
    writeln(a[i]);
end;

begin
  inputP;
  Solution;
  OutputP;
end.

[hars1]

Сообщение от ZX Spectrum-128

program z1;
const n=10;
var a: array [1..n] of integer;
    buf,i,P:integer;
    f:byte;

procedure InputP;
begin
 writeln('Введіть елементи масиву');
 for i:=1 to n do
    begin
    write('a[',i,']=');
    readln(a[i]);
    end;
write('Введіть P: ');
readln(P);
end;

Procedure Solution;
begin
f:=1;
for i:=1 to n do
    if f=1
       then
       if i mod 2 =0
          then if (a[i]>0) and (a[i]<P)
                  then f:=1
                  else f:=0
          else
       else break;
if f=1
   then begin
        buf:=a[1];
        a[1]:=a[n];
        a[n]:=buf;
        end
   else for i:=1 to n do
        a[i]:=-abs(a[i]);
end;

procedure OutputP;
begin
for i:=1 to n do
    writeln(a[i]);
end;

begin
  inputP;
  Solution;
  OutputP;
end.

Огромнешее спасибо!!!!