Программа с использованием процедур по работе с одномерным массивом

uses Crt;
Const N = 6;
type
Mas = array[1.. N] of Integer;
Var  
     Line: Mas;  {Перем. Line- одном. массив типа Mas}      
Procedure Inp; {Процедура ввода массива}
                         {После запуска программы управление передаётся первому исполняемому оператору из тела программы. Процедура Inp будет выполняться после вызова её из тела программы}
Var i: Integer;
begin  ClrScr;  {Начало тела процедуры Inp}
     for i:= 1 to N do begin
       Write(' Ввести эл-т с индексом ', i, ': ');
         ReadLn(Line[i])
    end;
end: {Конец процедуры Inp}
Procedure Out: {Процедура вывода на экран Out}
Var i: Integer;
begin {Начало тела процедуры Out}
   for i:= 1 to N do
     Write(Line [i]:4);
        WriteLn;
  end; {Конец процедуры  Out}
Procedure  Change;  {Процедура обмена местами эл-в}
Var i: Integer;
       X: Integer;
begin
       i:= 1;
     while I < 6 do begin
X:= Line[i];  Line[i]:= Line[i + 1];  Line[i+ 1]:= X;
        i:= 2;
     end
   end;
{Начинается тело программы}
begin  {Именно это и есть главный оператор  begin – начало всей программы}
Inp;  {Вызов процедуры  ввода эл-в массива}
Out;  {Вызов процедуры вывода массива на экран}
Chnge;  (Вызов процедуры обмена эл-тов}
    ReadLn
end.

Ввести эл-т с индексом 1:  7
Ввести эл-т с индексом 2:  -10
Ввести эл-т с индексом 3: 15
Ввести эл-т с индексом 4: 18
Ввести эл-т с индексом 5  -9
Ввести эл-т с индексом 6  8

program Project1;
uses
  Crt;
const
  N = 6;
type
  Mas = array[1.. N] of Integer;
var
  Line: Mas;  {Перем. Line- одном. массив типа Mas}
 
 
procedure Inp; {Процедура ввода массива}
{После запуска программы управление передаётся первому исполняемому оператору из тела программы. Процедура Inp будет выполняться после вызова её из тела программы}
var
  i: Integer;
begin {Начало тела процедуры Inp}
  ClrScr;
  for i:= 1 to N do
    begin
      Write(' Ввести эл-т с индексом ', i, ': ');
      ReadLn(Line[i])
    end;
end; {Конец процедуры Inp}
 
 
Procedure Out; {Процедура вывода на экран Out}
var
  i: Integer;
begin {Начало тела процедуры Out}
  for i:= 1 to N do
    Write(Line[i]:4);
  WriteLn;
end; {Конец процедуры  Out}
 
 
procedure  Change;  {Процедура обмена местами эл-в}
var
  i: Integer;
  X: Integer;
begin   {Начало тела процедуры Change}
  i:= 1;
  while i < 6 do
    begin
      X:= Line[i];
      Line[i]:= Line[i+1];
      Line[i+1]:= X;
      i:= i+2;
    end
end;  {Конец процедуры  Change}
 
 
{Начинается тело программы}
begin   {Именно это и есть главный оператор  begin – начало всей программы}
  Inp;  {Вызов процедуры  ввода эл-в массива}
  writeln('Исходный массив: ');
  Out;  {Вызов процедуры вывода массива на экран}
  Change;  {Вызов процедуры обмена эл-тов}
  writeln('Измененный массив: ');
  Out;  {Вызов процедуры вывода массива на экран}
  ReadLn;
end.