string; tf: TextFile; el: TCatalog; ok: Boolean;
begin InputFileName ('Введіть ім'я текстового файлу', name, true) and ('Введіть ім'я типізований файлу', FileName, false)
then name = FileName then ShowMessage ('Імена повинні бути різними!')
else
AssignFile (tf, name); (tf); (f, FileName); (f);: = True;
while not Eof (tf) and ok do
if LoadCatalog (tf, el) then write (f, el) else ok: = False; (f); (tf);
if ok then ShowMessage ('Дані завантажені')
else ShowMessage ('Помилка при завантаженні');
end;;
// друк файлу
procedure PrintFile (var f: TFile);
var el: TCatalog; i: Integer;
begin
Reset (f);
if Eof (f) then ShowMessage ('Файл порожній')
else
i: = 0;
while not Eof (f) do
begin
read (f, el); (i); ('Файл №', i); (el);
end;;
CloseFile (f);
end;
// збереження в текстовий файл
procedure SaveToText (var f: TFile; FileName: string);
var name: string; tf: TextFile; el: TCatalog;
begin InputFileName ('Введіть ім'я текстового файлу', name, false)
then name = FileName then ShowMessage ('Імена повинні бути різні!')
