procedure delfile(var F:TFile);
var st1,st:Ttank; Naz:string[10]; flag:boolean;
dl,k:integer;
begin
 Reset(f); Dl:=FileSize(f);
 flag:=true; write('udalenie file');
 readln(naz);
 while not eof(f) and flag do
 begin
   read(f,st);
   if st.name=naz then
   begin
     flag:=false;k:=filepos(f);
     if k<>dl then
     begin
       seek(f,dl-1); read(f,st);
       seek(f,k-1);
       write(f,st1);
     end;
     seek(f,dl-1);Truncate(F);
   end;
 end;
 if flag then write('net takogo')
 else writeln('complite');
 closefile(f);
end;