Списки

for i:=1 to n div 2 do {цикл от начала до середины массива} 
                     begin     {меняем элементы местами}
                     Buf := A[i];
                     A[i] := A[n-i+1];
                     A[n-i+1] := Buf;
                     end;

Program xa;
uses
  crt;
Type
 pt=^elem;
 elem=record
       data:integer;
       next:pt;
      end;
 
Procedure Print(u:pt);
begin
 repeat
  Write(u^.data, ' ');
  u:=u^.next;
 until u=nil;
 writeln
end;
 
procedure init(var first:pt;var n:integer);
var
 i:integer;
 t:pt;
begin
 t:=first;
 repeat
   clrscr;
   Writeln('VVedute kolu4ectvo elementov');
   Write('Kolu4ectvo= ');
   readln(n);
 until n>2;
 New(t);
 i:=1;
 Write(i,' -blu element= ');
 readln(t^.data);
 t^.next:=Nil;
 first:=t;
 for i:=2 to n do
 begin
  Write(i,' -blu element= ');
  New(t^.next);
  t:=t^.next;
  t^.next:=nil;
  readln(t^.data)
 end
end;
 
Procedure game(var t:pt;n:integer);
var
 a,b,c,d,e:pt;
begin
  if n>3 then
  begin
    a:=t; {pervoe}
    c:=t^.next; {vtopoe}
    while (t^.next^.next^.next<>nil) do
      t:=t^.next;
    b:=t;        {predpredpoclednee}
    d:=t^.next;  {predpoclednee}
    e:=d^.next;  {poclednee}
    d^.next:=c;
    a^.next:=e;
    c^.next:=a;
    b:=a;
    t:=d
  end
  else
  begin
    a:=t;       {pervoe}
    b:=t^.next; {vtopoe}
    c:=b^.next; {tret'e}
    b^.next:=a;
    a^.next:=c;
    t:=b
  end
end;
 
Procedure del(t:pt);
var
 tmp:pt;
begin
  while t<>nil do
  begin
    tmp:=t^.next;
    dispose(t);
    t:=tmp
  end
end;
 
var
 first,spis:pt;
 n:integer;
begin
 first:=nil;
 n:=0;
 Init(first,n);
 print(first);
 game(first,n);
 print(first);
 del(first);
 readln;
end.