Как в линейном односвязном списке переставить слова в обратном порядке?

Type
Ukazatel = ^S;
S = Record
Data : string;
Next : Ukazatel ;
End;
Var
i,n:integer;
str:string;
Head,x: Ukazatel;
begin
head:=nil;
writeln('Введите количество элементов в списке');
readln(n);
writeln('Введите элементы списка');
for i:=1 to n do begin
readln(str);
if head=nil then begin
New(x);
x^.Data:=str;
x^.Next:=Nil;
Head:= x;
end
else begin
New(x^.Next);
x:= x^.Next;
x^.Data:=str;
x^.Next:= Nil;
end;
end;
x:=head;
while x<>Nil do
Begin
Writeln(x^.Data);
x:= x^.Next;
End;
end.

Type
  Ukazatel = ^S;
  S = Record
    Data : string;
    Next : Ukazatel ;
  End;
Var
  i,n:integer;
  str:string;
  Head,x,Newhead,y: Ukazatel;
Begin
  head:=nil;
  write('Введите количество элементов в списке : '); readln(n);
  writeln('Введите элементы списка : ');
  for i:=1 to n do begin
    write(i,': '); readln(str);
    if head=nil then begin
      New(x); x^.Data:=str; x^.Next:=Nil; Head:= x;
    end else begin
      New(x^.Next); x:= x^.Next; x^.Data:=str; x^.Next:= Nil;
    end;
  end;
 
  writeln('Ishodnyj:');
  x:=head;
  while x<>Nil do Begin Writeln(x^.Data);  y:=x; x:= x^.Next; end;
  NewHead:=y;
 
  while y<>Head do begin
    x:=head; while x^.next<>y do x:= x^.Next; y^.next:=x; y:=x;
  end;
  y^.next:=nil;
 
  writeln('posle razworota:');
  x:=Newhead;
  while x<>Nil do Begin
    Writeln(x^.Data); y:=x; x:= x^.Next; Dispose(y);
  end;
  readln;
End.