В список записывается только последний элемент

 uses crt;
type
  Pnode = ^Tnode;
  Tnode = record
    x: integer;
    y: Pnode;
  end;
 
var
  first, p1, p2: Pnode;
  f:file of integer;
  ch1:char;
  s:string;
 
 
 
function proverka(ch:char):boolean;
begin
  if ch in ['0'..'9']  then
    proverka := true
  else 
    proverka := false;
end;   
  
procedure delite(ch:char; var s1:string);
begin
  if ch=(#8) then 
  begin
    clearline;
    s1:=copy(s1,1,length(s1)-1);
    write(s1);
  end;
end;
 
procedure vvod(ch:char;var s1:string);
begin
  writeln('Cколько чисел записать в файл');
  repeat
  ch:=readkey;
    if proverka(ch) then 
    begin
      write(ch);
      s1:=s1+ch;
    end;
  delite(ch,s1);
  until (ch=(#13)) and (length(s1)<>0); 
  writeln;
end;
 
procedure sozd_spis(ch:char; s1:string; var first1, p11,p22:Pnode);
var j :integer;
begin
  vvod(ch,s1);
  first1:=nil;
  new(p11);
  for var i := 1 to StrToInt(s1) do
  begin
    p11^.x := random(10);
    if first1 = nil then 
    begin
      first1:=p11;
    end
    else 
    begin
      p22^.y:=p11;
    end;
    p22:=p11;
  end;
  p22^.y := nil;
end;
 
procedure filee(var f1:file of integer; var first1, p11 :Pnode); 
begin
  assign(f1,'ff');
  rewrite(f1);
  p11:=first1;
  while p11<>nil do 
  begin
    write(f, p11^.x);
    p11:=p11^.y;
  end;
  close(f1);
end;
 
procedure poisk(var first1, p11 ,p22:Pnode);
var j1:integer;
begin
  j1:=0;
  p11:=first1;
  p22:=p11^.y;
  while p11<>nil do
  begin
    while p22<>nil do
    begin
      if p11^.x = p22^.x then 
      begin
        write(' ',p22^.x,' ');
        writeln(p11^.x);
        inc(j1);
      end;;
      p22:=p22^.y;
    end;
  p11:=p11^.y;
  if p11<>nil then
    p22:=p11^.y;
  end;
  writeln('В списке ',j1,' пар одинаковых чисел');
  while p11 <> nil do
end;
 
procedure viv_spis(var  first1, p11:Pnode);
begin
  p11 := first1;
  while p11 <> nil do
  begin
    write(p11^.x, ' ');
    p11 := p11^.y;
  end;
  writeln;
end;
 
begin
  clrscr;
  sozd_spis(ch1,s,first,p1,p2);
  filee(f,first,p1);
  writeln('Составленный список');
  viv_spis(first,p1);
  poisk(first,p1,p2);
end.

const fName = 'ff';
 
type
  tList = class
    n : Integer;
    x : tList;
    
    constructor (x : tList);
    begin
      n := Random(10);
      Self.x := x;
    end;
  end;
 
function CreateList : tList;
begin
  Result := nil;
  var n := ReadInteger('Cколько чисел записать в файл: n =');
  loop n do
    Result := New tList(Result);
end;
 
procedure ListToFile(L : tList);
begin
  var f : File of Integer;
  Rewrite(f, fName);
  while L <> nil do
    begin
      Write(f, L.n);
      L := L.x;
    end;
  Close(f);
end; 
 
procedure OutList(L : tList; msg : String := '');
begin
  if msg.Length > 0 then Write($'{msg}: ');
  if L = nil then
    Write('пуст.')
  else
    while L <> nil do
      begin
        L.n.Print;
        L := L.x;
      end;
  WriteLn;
end;
 
procedure FindRepeats(L : tList);
begin
  if L = nil then
    begin
      WriteLn('Спиок пуст!');
      Exit;
    end;
  
  // Для подсчёта количества воспользуемся двумя нашими списками
  // где будем хранить v - значения / с - количество
  
  // Первый просто заносим
  var(v,c) := (New tList(nil),New tList(nil));
  (v.n,c.n) := (L.n,1);
  // Остальные 
  while L.x <> nil do
    begin
      L := L.x;
      var(tv,tc):=(v,c);
      while (tv<>nil) and (tv.n<>L.n) do (tv,tc):=(tv.x,tc.x);
      if tv=nil then // такое значение не найдено
        begin
          (v,c) := (New tList(v),New tList(c));
          (v.n,c.n) := (L.n,1);
        end
      else // повторное значение
        tc.n += 1;
    end;
    
  // Каждое число списка сколько раз встречается
  while v <> nil do
    begin
      WriteLn($'{v.n} встречается раз {c.n}');
      (v,c) := (v.x,c.x);
    end;
end;
 
begin
  Randomize;
  var L := CreateList;
  ListToFile(L);
  OutList(L, 'Составленный список');
  FindRepeats(L);
end.