Односвязные списки

Type
 node=^nds;
 nds=record 
  data:integer;
  next:node;
 end;
 
procedure switch(n:integer; nodes:node);
var k,z,i,st,fn,h,strt:integer;
start,fin,nk:node;
f:text;
begin;
assign(f,'Tmpel2.txt');
rewrite(f);
nk:=nil;
for z:=1 to n do begin
for k:=1 to n-z do 
 nodes:=nodes^.next;
 writeln(f,nodes^.data);
 end;
end;

type
  tList = class
    n : Integer;
    x : tList;
    
    constructor (n : Integer; x : tList);
    begin
      Self.n := n; Self.x := x;
    end;
  end;
 
function ReadList(fName : String) : tList;
begin
  Result := nil;
  var n : Integer;
  var f : Text;
  Reset(f, fName);
  while Not EOF(f) do
    begin
      Read(f, n);
      Result := New tList(n, Result);
    end;
  Close(f);
end;
 
procedure SaveList(fName : String; List : tList);
begin
  var f : Text;
  Rewrite(f, fName);
  while List <> nil do
    begin
      Print(f, List.n);
      List := List.x;
    end;
  Close(f);
end;
 
begin
  SaveList('nums1.txt', ReadList('nums0.txt'));
end.