Исправление двух процедур

type
    tovar=record
          name:string[10];
          party:integer;
          cost:integer;
          end;
    base=file of tovar;
var
    f:file of tovar;
    g:file of tovar;
    w:char;n,p,c:integer;
    s:string;
procedure make(var f:base; n:integer);
var
i:integer;z:tovar;
begin    
  rewrite(f);
  write('Введите колличество записей ');
  readln(n);
    for i:=1 to n do
    begin
      writeln('товар' ,i);
      with z do
      begin
      write('Введите название товара: ');
      readln(z.name);
      write('Колличетво товара: ');
      readln(z.party);
      write('Введите стоимость товара: ');
      readln(z.cost);
      write(f,z);
      end;
      end;
close(f);      
end;
   
procedure print(var f:base);
var
z:tovar;
begin
   reset(f);
   while not eof(f) do
begin
    read(f,z);
    writeln(z.name);
    writeln(z.party);
    writeln(z.cost);    
end;
close(f);
end;       
 
procedure info(var f:base;s:string;var p,c:integer);
var
z:tovar;
begin
  reset(f);
  p:=0;c:=0;
    while not eof(f) do
    begin
    read(f,z);
    if s=z.name then
    begin
    p:=z.party;
    c:=z.cost;
    end;
    end;
    writeln('количество:');
    writeln(p);
    writeln('стоимость товара');
    writeln(c);
close(f);    
end;
 
 
procedure delete(var f,g:base;s:string);
var
z:tovar;
begin
    reset(f);
    rewrite(g);
    while not eof(f) do 
     begin
      read(f,z);
      writeln('введите название товара' );
      read(s);
      write(g);
    while not eof(g) do
      begin
      read(g,z);
      if z.name<>s then
      write(f);
      end;   
    end;
close(f);
close(g);    
end;      
    
procedure append(var f,g:base;s:string;p,c:integer);
var
z:tovar;
begin
  reset(f);
  rewrite(g);
    writeln('введите название товара');
    read(s);
    while not eof(f) do
    begin
    read(f,z);
    if s<>z.name then
     begin 
      write('Колличетво товара: ');
      readln(z.party);
      write('Введите стоимость товара: ');
      readln(z.cost);
     end;end; 
    while not eof(g) do;
      begin
        writeln('введите название товара');
        read(s);
        if s=z.name then
        write(f);
      end;     
close(f);
close(g);    
end; 
 
Function capital(var f:base):integer;
var
z:tovar;
i:integer;
begin
  reset(f);
  i:=0;
  while not eof(f) do
  begin
    read(f,z);
    i:=i+(z.cost*z.party);
  end;
  close(f);
  capital:=i;
  write('Общая стоимость товара:');
  end;
  
BEGIN
assign(f,'e:/tovar.dat');
assign(g,'e:/tovar2.dat');  
repeat
writeln('выбирете действие');
writeln('1-выполнение процедуры make');
writeln('2-выполнение процедуры print');
writeln('3-выполнение процедуры info');
writeln('4-выполнитьо функцию capital');  
writeln('5-выполнение процедуры delete');
writeln('6-выполнение процедуры append'); 
writeln('другое выход');
readln(w);
case w of
'1':make(f,n);
'2':print(f);
'3':begin writeln('введите название товара'); readln(s); info(f,s,p,c); end;  
'4':writeln(capital(f));
'5':delete(f,g,s);
'6':append(f,g,s,p,c);
else 
writeln(' действие отсутсвует ')
end;
until not (w in['1'..'6']);
End.