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

if IOResult<>0 then

begin

clrscr;

Write('Сортировка невозможна!');

readkey;

Exit;

end

else

begin

if FileSize(F)=0 then

begin

clrscr;

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

readkey;

Exit;

end

else

begin

clrscr;

Writeln('До сортировки...');

Writeln;

view;

Writeln;

Writeln('Введите поле для сортировки:');

Writeln('1: Название 2: Material 3: Cena');

Write('---> ');

Readln(sortPole);

Assign(F, name);

Reset(F);