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

end;

end;

end; begin

Close(F);

end;

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

while not EOF(F) do

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

procedure add;

var

data: Jeverly;

begin

clrscr; begin

Write('Введите название изделия: ');

Readln(data.isd);

Write('Введите материал, из которого сделано изделие: ');

Readln(data.mat);

Write('Введите стоимость изделия($): ');

Readln(data.cen);

{$I-}

Assign(F, name);

Reset(F);

{$I+}

if IOResult<>0 then

Rewrite(F)

else

begin

Seek(F, FileSize(F));

Write(F, data);