Программа с процедурой обмена попарно элементов массива

uses Crt;
Const N = 10;
Var A: array[1..N] of Integer;
Procedure Inp; (Заголовок процедуры Inp}
Var i: Integer;
begin {Начало процедуры  Inp}
ClrScr;
   for i:= 1 to N do begin
      A[i]:= Random(80) – 20;
   end; end; {Конец процедуры Inp}
Procedure Out; {Процедура вывода эл-в на экран}
Var i: Integer;
begin
   for i:= 1 to N do
     Write(A[i]:3);
        WriteLn;
   end; {Конец процедуры Out}
Procedure Obmen; {Процедура по парного обмена эл-в}
Var i, X: Integer;
begin {Начало процедуры Obmen}
     i:= 1;
    While I < N do begin
  X:= A[i];  A[i]:= A[i + 1];  A[i + 1]:= X;
        i:= i + 2;
   end; WriteLn;
WriteLn(‘ Массив с по парной перестановкой эл-в:’);
   for i:= 1 to N do
      Write(A[i]:3);
   end; {Конец процедуры Obmen}
begin  {Начало тела программы}
Inp; {Вызов процедуры  Inp}
Out; {Вызов процедуры Out}
Obmen; {Вызов процедуры  Obmen}
   ReadLn
end.

uses Crt;
Const N = 10;
Var A: array[1..N] of Integer;
Procedure Inp; {Заголовок процедуры Inp}
Var i: Integer;
begin {Начало процедуры  Inp}
for i:= 1 to N do A[i]:=-20+Random(80);
end; {Конец процедуры Inp}
Procedure Out(s:string); {Процедура вывода эл-в на экран}
Var i: Integer;
begin
writeln(s);
for i:= 1 to N do
Write(A[i]:3);
WriteLn;
end; {Конец процедуры Out}
Procedure Obmen; {Процедура по парного обмена эл-в}
Var i, X: Integer;
begin {Начало процедуры Obmen}
i:=1;
While I < N do
 begin
  X:= A[i];  A[i]:= A[i + 1];  A[i + 1]:= X;
  i:= i + 2;
 end;
end; {Конец процедуры Obmen}
begin  {Начало тела программы}
clrscr;
Inp; {Вызов процедуры  Inp}
Out('Исходный массив'); {Вызов процедуры Out}
Obmen; {Вызов процедуры  Obmen}
Out('Попарный обмен элементов');
ReadLn
end.