массив

[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.

[ZX Spectrum-128]

Три основных блока: ввод, обработка, вывод.
Сами найдете эти блоки?

[hars1]

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

Три основных блока: ввод, обработка, вывод.
Сами найдете эти блоки?

Пожалуйсто,если можете,то объясните мне что и где,как и почему

[ZX Spectrum-128]

Ну вот например вывод:
...

...
Procedure Output;
Begin
for i:=1 to n do
  Writeln(a[i]);
End;
...
Begin
  ...
  Output;
End.

[hars1]

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

Ну вот например вывод:
...

...
Procedure Output;
Begin
for i:=1 to n do
  Writeln(a[i]);
End;

...
Begin
  ...
  Output;
End.

Извините конечно за мою тупость,но я в паскале ничего не понимаю,могли бы вы показать где у меня в программе ввод,решения,вывод,и как его оформить?

[ZX Spectrum-128]

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

Это ввод, остальное обработка