procedure zapisprefix(var mas_zna: zna; var firma_file,ks,prefix:text; var i:integer; var vrem:mvrem; var comp:mcomp);
var
f_k,firma,firmatemp: str;
simvol: sim;
str_zna,temp,number,str_zna2,tempcomp: str;
stime: string[10];
code,k,z,b,qwerty: integer;
time: longint;
prov,prov2,prov3,prov99: boolean;
begin
prov3:=false;
prov2:=false;
reset(prefix);
str_zna:='';
str_zna2:='';

if mas_zna[3]<>'0' then

begin
f_k:=mas_zna[1]+','+mas_zna[2];
stime:=mas_zna[3];
val(stime,time,code);

for z:=1 to 3 do

begin
write(firma_file,mas_zna[z]+',');
mas_zna[z]:='';
end;

writeln(firma_file);
str_zna:=f_k;
firma:=copy(str_zna,1,pos(',',str_zna));
delete(str_zna,1,pos(',',str_zna));
str_zna2:=str_zna;

prov99:=false;

while (not length(str_zna2)=0) or (prov99=true) do

begin

while not seekeof(prefix) do

begin
simvol:='';
temp:='';
number:='';
tempcomp:='';

while simvol<>',' do

begin
read(prefix,simvol);
tempcomp:=tempcomp+simvol;
end;

simvol:='';

while simvol<>',' do

begin
read(prefix,simvol);
temp:=temp+simvol;
end;

delete(temp,pos(',',temp),1);

if (firma=tempcomp) and (str_zna2=temp) then

begin
simvol:='';

while simvol<>',' do

begin
read(prefix,simvol);
number:=number+simvol;
end;

delete(number,pos(',',number),1);
str_zna:=number;
readln(prefix);
prov2:=true;
prov99:=true;
end

else

begin

if (temp=str_zna2) and (prov2=false) and (prov3=false) then

begin
simvol:='';

while simvol<>',' do

begin
read(prefix,simvol);
number:=number+simvol;
end;

delete(number,pos(',',number),1);
str_zna:=number;
readln(prefix);
prov3:=true;
prov99:=true;
end

else

begin
readln(prefix);
end;

end;
end;
qwerty:=length(str_zna2);
delete(str_zna2,qwerty,1);
end;

insert(firma,str_zna,1);

prov:=false;

for k:=1 to N do

begin

if comp[k]=str_zna then

begin
vrem[k]:=vrem[k]+time;
prov:=true
end;

end;

if (prov=false) then

begin
comp[i]:=str_zna;
vrem[i]:=time;
str_zna:='';
i:=i+1;
end;

end;

end;