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

begin

clrscr;

{$I-}

Assign(F, name);

Reset(F);

{$I+}

if IOResult<>0 then

begin

Rewrite(F);

clrscr;

Write('Файл пуст!');

Exit;

end

else

begin

if FileSize(F)=0 then

begin

Write('Файл пуст!');

Exit;

end

else

begin

Writeln('#':3, 'Товар':15, 'Материал':15, 'Стоимость':15); Writeln('#':3, 'Товар':15, 'Материал':15, 'Стоимость':15); Rewrite(F);

Writeln('-------------------------------------------------');

i:=0;

while not EOF(F) do

begin

Read(F, data);

Writeln(i:3, data.isd:15, data.mat:15, data.cen:15);