Составить программу с помощью которой можно добавить запись, удалить запись и распечатать дешевое издание.

program _file_LB7_Zeleniuk;
type zurnal=record
 name:string[15];
 tiraz:integer;
 vartist:integer;
end;
var f:file of zurnal;
    comp:zurnal;
    n:integer;
    c:integer;
{======================}    
Procedure creatfile;
 var i:integer;
begin
 Rewrite(f);
 writeln('Скільки буде записів?');
 readln(n);
 for i:=1 to n do
begin
 write('Назва');readln(comp.name);
 write('Тираж');readln(comp.tiraz);
 write('Вартість');readln(comp.vartist);
 write(f,comp);
end;
 Close(f);
end;
 {======================}
Procedure AddFile;
 var i:integer;
begin
 Reset(f);
 Seek(f,filesize(f));
 writeln('Скільки додати записів');
 readln(n);
 for i:=1 to n do
begin
 write('Назва');readln(comp.name);
 write('Тираж');readln(comp.tiraz);
 write('Вартість');readln(comp.vartist);
 write(f,comp);
end;
 Close(f);
end;
 
 {=====================}
Procedure OutFile;
begin
 Reset(f);
 while(not Eof(f))do
begin
 Read(f,comp);
 write(comp.name,'',comp.tiraz,'',comp.vartist);
end;
 close(f);
end;
 
Procedure Search;
var f:boolean;
begin
 Reset(f);f:=false;
 while(not Eof(f))do
begin
 Read(f.comp);
 if(comp,vartist)then
end;
begin
 writeln(comp.name,'',comp.tiraz,'',comp.vartist);
end;
 
 Assign(f,'zurnal.txt');
 repeat
 writeln('1.Створити файл');
 writeln('2.Додати файл');
 writeln('3.Вивід інформації з файлу');
 writeln('4.Пошук');
 writeln('5.Вихід');
 writeln('Ваш вибір');readln(c);
 case c to
 1.CreatFile;
 2.AddFile;
 3.OutFile;
 4.Serach;
 end;
 until c='5'
 end.

if (comp,vartist) then