Реферат: Разработка информационно-поисковой системы Ювелирные изделия

end

else

begin

view;

Writeln;

Writeln;

Write('Введитеномерудаляемойзаписи: ');

Readln(del);

Assign(G, '~temp~');

Rewrite(G);

Assign(F, name);

Reset(F);

i:=0;

while not EOF(F) do

begin

Read(F, data);

if i<>del then

Write(G, data);

inc(i);

end;

Close(F);

Erase(F);

ReName(G, name);

end;

end;

end;

{--------------------------------------------------------------------}

{--------------------------------------------------------------------}

procedure edit;