Сформировать файл целых чисел, переставить на начало файла его последний компонент

type
  PNode = ^Node;{Указатель на узел}
  Node = record     {Структура узла}
    chis, nom: integer; {число и порядковый номер числа в списке}
    next: PNode; {Указатель на след}
  end;
 
var
  Head, p: PNode;
  i, k, n: integer;
 
 
{Проц доб в список, посмотрите в теме Динамические структ там всё подробно написанно}
procedure AddToList(var Head1: PNode; k, i: integer);
var
  tmp: PNode;
begin
  if Head1 = nil then
  begin
    New(Head1);
    tmp := Head1;
  end
  else
  begin
    tmp := Head1;
    while tmp^.next <> nil do
      tmp := tmp^.next;
    New(tmp^.next);
    tmp := tmp^.next;
  end;
  tmp^.next := nil;
  tmp^.chis := k;
  tmp^.nom := i;
end;
 
{Проц вывода списка на экран}
procedure Print(Head1: PNode);
begin
  while Head1 <> nil do  {Пока голова не станет равной пустоте делать}
  begin
    write(Head1^.chis:5);
    Head1 := Head1^.next; {Преход на след элемент}
  end;
end;
 
{процедура удаления списка}
procedure FreeSpisok(var Head1: PNode);
var
  tmp: PNode;
begin
  while Head1 <> nil do
  begin
    tmp := Head1;
    Head1 := Head1^.next; {Преставляем голову на след элемент за ней и }
    dispose(tmp);  {удаляем элем}
  end;
end;
 
 
begin
  Head := nil;
  writeln('Введите колво элементов');
  readln(n);
  Randomize;
  for i := 1 to n do
    repeat
      k := random(50);
      if p = nil then
        AddToList(Head, k, i);
    until p = nil;
  Print(Head);
  writeln;
  FreeSpisok(Head);
end.

type
PNode=^Node;
Node=record
  num:integer;
  next:PNode;
end;
var
Head:PNode;
f:text;
n:integer;
 
procedure AddToStack(var Head1:PNode;k:integer);
var
tmp:PNode;
begin
  New(tmp);
  tmp^.num:=k;
  tmp^.next:=Head1;
  Head1:=tmp;
end;
procedure ReadFromF(var Head1:PNode;fl:text);
var
k:integer;
 
begin
  reset(fl);
   while not EOF(fl) do
     begin
       while not EOln(fl) do
         begin
          read(fl,k);
          AddToStack(Head1,k);
         end;
       readln(f);
     end;
      close(fl);
end;
procedure Print(Head1:PNode);
begin
  if Head1=nil then
    begin
      writeln('Стек пуст!');
      exit;
    end;
      while Head1 <> nil do
        begin
          write(Head1^.num:4);
          Head1:=Head1^.next;
        end;
end;
procedure ChangeF(var fl:text;Head1:PNode);
begin
  rewrite(fl);
    while Head1 <> nil do
      begin
        write(f,Head1^.num:2);
        Head1:=Head1^.next;
      end;
   close(fl);
end;
 
procedure FreeStack(var Head1:PNode);
var
tmp:PNode;
begin
  while Head1 <> nil do
    begin
      tmp:=Head1;
      Head1:=Head1^.next;
      Dispose(tmp);
    end;
end;
 
 
begin
  Head:=nil;
  assign(f,'c:\t.txt');
  writeln('Данный файл');
   reset(f);
     while not EOF(f) do
        begin
          read(f,n);
          write(n:4);
        end;
  ReadFromF(Head,f);
  writeln;
  writeln('Содержимое списка');
  Print(Head);
  ChangeF(f,Head);
  FreeStack(Head);
  writeln;
  writeln('Изменнёный файл');
   reset(f);
     while not EOF(f) do
        begin
          read(f,n);
          write(n:4);
        end;
  close(f);
end.

type
PNode=^Node;
Node=record
  num:integer;
  next:PNode;
end;
var
Head:PNode;
f:text;
n:integer;
 
procedure AddToSpis(var Head1:PNode;k:integer);
var
tmp:PNode;
begin
  if Head1=nil then
    begin
      New(Head1);
      tmp:=Head1;
    end
  else
    begin
      tmp:=Head1;
        while tmp^.next <> nil do
          tmp:=tmp^.next;
        New(tmp^.next);
        tmp:=tmp^.next;
    end;
     tmp^.next:=nil;
     tmp^.num:=k;
end;
 
procedure ReadFromF(var Head1:PNode;fl:text);
var
k:integer;
 
begin
  reset(fl);
   while not EOF(fl) do
     begin
       while not EOln(fl) do
         begin
          read(fl,k);
          AddToSpis(Head1,k);
         end;
       readln(f);
     end;
      close(fl);
end;
procedure Print(Head1:PNode);
begin
  if Head1=nil then
    begin
      writeln('Список пуст!');
      exit;
    end;
      while Head1 <> nil do
        begin
          write(Head1^.num:4);
          Head1:=Head1^.next;
        end;
end;
procedure ChangeF(var fl:text;Head1:PNode);
var
tmp:PNode;
begin
  rewrite(fl);
  tmp:=Head1;
    while tmp^.next <> nil do
       tmp:=tmp^.next;
    write(fl,tmp^.num:5);
    while Head1 <> tmp do
       begin
         write(fl,Head1^.num:5);
         Head1:=Head1^.next;
       end;
       
   close(fl);
end;
 
procedure FreeSpis(var Head1:PNode);
var
tmp:PNode;
begin
  while Head1 <> nil do
    begin
      tmp:=Head1;
      Head1:=Head1^.next;
      Dispose(tmp);
    end;
end;
 
 
begin
  Head:=nil;
  assign(f,'c:\t.txt');
  writeln('Данный файл');
   reset(f);
     while not EOF(f) do
        begin
          read(f,n);
          write(n:4);
        end;
  ReadFromF(Head,f);
  writeln;
  writeln('Содержимое списка');
  Print(Head);
  ChangeF(f,Head);
  FreeSpis(Head);
  writeln;
  writeln('Изменнёный файл');
   reset(f);
     while not EOF(f) do
        begin
          read(f,n);
          write(n:4);
        end;
  close(f);
end.