упозн

procedure SaveDishesToFile(Head: TPElemDish; path: String);
var
    F: File of TPDish;
    Temp: TPElemDish;
    Writed: TPDish;
begin
    //работа с типизированным файлом
    AssignFile(F, Path);
    Rewrite(F);
    //получение первого элемента списка
    Temp := Head^.Next;
    //пока не дошли до конца списка
    while (Temp <> nil) do
    begin
        //записываем все данные
        Writed.Code := Temp^.Code;
        Writed.Name := Temp^.Name;
        Writed.Ingr := Temp^.Ingr;
        write(F, Writed);
        //переходим к следующему элементу в списке
        Temp := Temp^.Next;
    end;
    //закрытие файла
    CloseFile(F);
end;