Выгрузка двухсвязного списка в файл и загрузка из файла

program DoubleList;
 
uses
    crt;
 
type
         Tavto =record {object}
 
{Координаты}
        x : double;
 
        y : double;
 
                z : double;
 
    end;
{Указательный тип данных на элемент двухсвязного списка}
    Tptr = ^Telem;
{Запись, состоящая из трёх полей, описывающая элемент списка}
    Telem = record
{Информационное поле - хранит сведения о точках}
        inf   : Tavto;
{указательное поле на левый элемент}
        left  : Tptr;
{указательное поле на правый элемент}
        right : Tptr;
    end;
 
var
{указатель на начало двухсвязного списка}
    beg2L : Tptr;
{Ук на конец}
        end2L : Tptr;
        xx : Tptr;
        xxx: Tavto;
{---------------------------------------------------------------------------}
{Добавление новой точки}
{---------------------------------------------------------------------------}
procedure addTo;
var
 
    add : Tptr;
 
begin
 
    new(add);
 
    add^.left := NIL;
    add^.right := NIL;
 
    write('Введите х     : ');
    readln(add^.inf.x);
    write('Введите у     : ');
    readln(add^.inf.y);
    write('Введите z      : ');
    readln(add^.inf.z);
 
    if(beg2L = NIL) then
        beg2L := add
 
    else
    begin
 
        add^.right := beg2L;
 
        beg2L^.left :=add;
 
        beg2L := add;
    end;
 
    writeln;
 
    writeln('Точка добавлена*!');
end;
 
 
{---------------------------------------------------------------------------}
{Удалить крайнюю точку}
{---------------------------------------------------------------------------}
procedure DeletTo;
var
{Вспомогательный указатель, для проведения операции удаления}
    p : Tptr;
 
begin
 
    p := beg2L;
 
    if(p = NIL) then
        writeln('Нет ни одной точки!')
 
    else
    begin
 
        if(p^.right = NIL) then
        begin
 
            dispose(p);
 
            beg2L := NIL;
        end
 
        else
        begin
 
            while(p^.right^.right <> NIL) do
 
                p := p^.right;
            dispose(p^.right);
 
            p^.right := NIL;
        end;
 
        writeln;
 
        writeln('Точка успешно удалена');
    end;
 
end;
{---------------------------------------------------------------------------}
{Вывод всех точек**}
{---------------------------------------------------------------------------}
procedure printAllTo;
var
 
    p : Tptr;
begin
 
    p := beg2L;
 
    if(p = NIL) then
        writeln('Нет ни одной точки!')
 
    else
    begin
 
        writeln('Все точки: ');
        writeln('-----------------------------------------------');
 
        while(p <> NIL) do
        begin
 
            writeln('x     : ', p^.inf.x);
            writeln('Y     : ', p^.inf.y);
            writeln('Z     : ', p^.inf.z);
            writeln('-----------------------------------------------');
 
            p := p^.right;
        end;
    end;
 
end;
 
{---------------------------------------------------------------------------}
{Удаление всех точек}
{---------------------------------------------------------------------------}
procedure DeletAllTo;
var
 
    p : Tptr;
 
begin
 
    p := beg2L;
 
    while(beg2L <> NIL) do
    begin
 
        beg2L := p^.right;
 
        dispose(p);
 
        p := beg2L;
    end;
 
end;
 
{---------------------------------------------------------------------------}
{Запись в файл}
{---------------------------------------------------------------------------}
var f1: text;
 
procedure Outt;
begin
assign(f1,'outputTo.txt');
rewrite(f1);
write(f1,xx^.inf.x, xx^.inf.y, xx^.inf.z);
close(f1);
end;
 
 
 
 
{---------------------------------------------------------------------------}
{Главное меню}
{---------------------------------------------------------------------------}
function menu : integer;
var
 
    sel : integer;
 
begin
 
    repeat
        clrscr;
        writeln('1 - Добавить точку');
        writeln('2 - Удалить точку');
        writeln('3 - Просмотреть все точки');
        writeln('4 - Запись в файл');
        writeln('5 - Пока пусто');
        writeln('6 - Удалить все точки');
        writeln('7 - Выход');
        write('Выбор: ');
        readln(sel);
    until((sel >= 1) and (sel <= 7));
    writeln;
 
    menu := sel;
 
end;
{---------------------------------------------------------------------------}
 
var
 
    sel : integer;
 
begin
 
    beg2L := NIL;
 
    repeat
 
        sel := menu;
        case sel of
         1:
        begin
 
            addTo;
            readkey;
        end;
        2:
        begin
 
            DeletTo;
            readkey;
        end;
        3:
        begin
 
            printAllTo;
            readkey;
        end;
        4:
        begin
 
            writeln('ss');
                        Outt;
            readkey;
        end;
        5:
        begin
 
                        writeln('ss');
            readkey;
        end;
        6:
        begin
 
            DeletAllTo;
            writeln('Все точки удалены!');
            readkey;
        end;
        end;
    until(sel = 7);
 
    DeletAllTo;
 
end.

{Удаление всех точек. Освобождение памяти, занятой для элементов списка и инициализация переменных списка - beg2L и end2L.}
procedure DeletAllTo;
var
  p : Tptr;
begin
  while beg2L <> nil do
  begin
    p := beg2L;
    beg2L := beg2L^.right;
    dispose(p);
  end;
  end2L := nil;
end;
 
{Запись списка в файл с именем aFileName.}
procedure WriteToFile(const aFileName : String);
var
  F : Text;
  p : Tptr;
begin
  Assign(F, aFileName);
  Rewrite(F);
  p := beg2L;
  while p <> nil do
  begin
    if p <> beg2L then {Если это не первый элемент, то переходим на следующую строку.}
      Writeln(F);
    Write(F, p^.inf.x, ' ', p^.inf.y, ' ', p^.inf.z); {Запись данных элемента.}
    p := p^.right; {Получаем указатель на следующий элемент.}
  end;
  Close(F);
end;
 
{Чтение списка из файла с именем aFileName.}
procedure ReadFromFile(const aFileName : String);
var
  F : Text;
  p : Tptr;
begin
  {Освобождаем память, занятую для элементов списка.}
  DeletAllTo;
  {Чтение элементов из файла и добавление их в список.}
  Assign(F, aFileName);
  Reset(F);
  while not Eof(F) do
  begin
    {Выделение памяти для элемента и добавление его в список.}
    if end2L = nil then {Если список пуст.}
    begin
      New(end2L);
      beg2L := end2L;
      end2L^.left := nil;
    end
    else                {Если список не является пустым.}
    begin
      New(end2L^.right);
      end2L^.right^.left := end2L;
      end2L := end2L^.right;
    end;
    {Чтение данных элемента из файла.}
    Readln(F, p^.inf.x, p^.inf.y, p^.inf.z);
  end;
  if end2L <> nil then
    end2L^.right := nil;
  Close(F);
end;

    {Чтение данных элемента из файла.}
    Readln(F, end2L^.inf.x, end2L^.inf.y, end2L^.inf.z);

{Чтение списка из файла с именем aFileName.}
procedure ReadFromFile(const aFileName : String);
var
  F : Text;
begin
  {Освобождаем память, занятую для элементов списка.}
  DeletAllTo;
  {Чтение элементов из файла и добавление их в список.}
  Assign(F, aFileName);
  Reset(F);
  while not Eof(F) do
  begin
    {Выделение памяти для элемента и добавление его в список.}
    if end2L = nil then {Если список пуст.}
    begin
      New(end2L);
      beg2L := end2L;
      end2L^.left := nil;
    end
    else                {Если список не является пустым.}
    begin
      New(end2L^.right);
      end2L^.right^.left := end2L;
      end2L := end2L^.right;
    end;
    {Чтение данных элемента из файла.}
    Readln(F, end2L^.inf.x, end2L^.inf.y, end2L^.inf.z);
  end;
  if end2L <> nil then
    end2L^.right := nil;
  Close(F);
end;