обмен чисел последовательности

[maziLa]

Ребята мне нужно в программе используя массив поменять его первые три и последние три элемента местами сохраняя их прохождение ...

Program LR6_91821;
  uses crt;
  const Size = 20;
  type
    mas = array [1..Size] of integer;
  var
    a : mas;
    i , j , n ,temp : integer;
    ch : char;
Procedure vvodKL;
  begin
   write ('n= ');
   readln (n);
    for i:=1 to n do
     begin
      write ('a[' ,i, '] = ');
      readln (a[i]);
     end;
   end;
Procedure ChangeTwoElems (var  m : mas; i1 , i2 :integer);
  begin
    m[i1]:=m[i2]
  end;
Begin
repeat
ClrScr;
     begin
            i1:=temp;
            i2:=i1;
            temp:=i2;
     end;
 begin
   for i:=1 to n do
   writeln ('a[' ,i, ']= ' , a[i]);
 end;
 ch:=ReadKey;
 until ch='n'
End.

Вообщем вот тут что то пытался ....помогите плиз тут впринципе с помощью процедур но если есть другие варианты то буду оч рад и им.

[SergGhost]

program mas;
uses crt;
type v = array[1..20] of integer;

var i,a1,a2,a3,b1,b2,b3:Integer;
a:v;
begin
clrScr;
For i:=1 to 20 do {выводим изначальный массив}
begin
a[i]:=-15+random(9);
write ( a[i]);
if i=1 then a1:=a[i];
if i=2 then a2:=a[i];
if i=3 then a3:=a[i];
if i=18 then b1:=a[i];
if i=19 then b2:=a[i];
if i=20 then b3:=a[i];
{ writeln;}
end;
writeln(' '); {новая строка}
For i:=1 to 20 do //массив с поменянными первыми
begin //и последними элементами
if i=1 then
begin
a[i]:=b1;
write ( a[i]);
end
else
if i=2 then
begin
a[i]:=b2;
write ( a[i]);
end
else
if i=3 then
begin
a[i]:=b3 ;
write ( a[i]);
end
else
if i=18 then
begin
a[i]:=a1;
write ( a[i])
end
else
if i=19 then
begin
a[i]:=a2;
write ( a[i]);
end
else
if i=20 then
begin
a[i]:=a3;
write ( a[i]);
end
else
write ( a[i]);
end;
readkey;
end.

грубо, но работает (если с условием я все так понял.)

[Alter]

Способ попроще:

program Zamena;

const Size = 20;
type TMas = array [1..Size] of integer;
var
   A :TMas;
   I,n :Integer;

Procedure vvodKL;
Var I :Integer;
begin  //ввод
 write('Razmer massiva N= '); readln (n);
 writeln('Vvod dannih:');
 for i:=1 to n do
 begin
  write ('a[' ,i, '] = ');
  readln (a[i]);
 end;
 Writeln;
end;

Procedure ChngMas(nn :Integer; var mas :TMas);
Var i,Tmp,Chk :Integer;
begin // меняем местами
 Chk := 0;
 if nn>=6 then
 For I:=1 To nn-3 Do
 begin
  Tmp := Mas[i];
  Mas[i] := Mas[nn-3+i];
  Mas[nn-3+i] := Tmp; 
  Inc(chk);
  If chk>=3 then break;
 end;
end;

procedure PrintMas(Capt :String; nn :Integer; mas :TMas);
Var I :integer;
begin // печать массива
 WriteLn(Capt);
 For I:=1 To nn Do    
 Write(Mas[i], ' ');
 Writeln;
end;

begin
 vvodKL;
 PrintMas('Ishodniy massiv: ', n, a);
 ChngMas(n, a);
 PrintMas('Izmenenniy massiv: ', n, a);
 readln;
end.