>
else
Reset (f); (tf, name); (tf);
while not Eof (f) do
begin
read (f, el); (tf, el);
end;
CloseFile (f); (tf);
ShowMessage ('Текстовий файл створений');
end;
end;
// додавання елемента AddElems (var f: TFile);
var n: Integer;
begin
Reset (f);: = FileSize (f); (f, n); (f); (f); ('Дані додані');
end;
// Вибір елемента
function SelectNum (var f: TFile; n: Integer; var num: Integer; var el: TCatalog): Boolean;
begin n = 1 then num: = 0
else
Writeln ('Введіть номер елемента'); (num);
while (num <1) or (num> n) do
begin
Writeln ('Помилка! Повторіть введення');
Readln (num);
end;
dec (num);
end;
Seek (f, num); (f, el); (el);: = InputQuery ('Цей елемент?');
end;
// ізмнененіе елемента
procedure EditElems (var f: TFile);
var n, num: Integer; el: TCatalog;
begin
Reset (f);
if Eof (f) then ShowMessage ('Файл порожній')
else SelectNum (f, FileSize (f), num, el)
then
EditCatalog (el); (f, num); (f, el); ('Дані змінено');
end;
CloseFile (f);
end;
// видалення елемента
procedure DeleteElems (var f: TFile);
var num, n: Integer; el: TCatalog;...
