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

if data[i].cen>data[j].cen then

begin

tmp:=data[i];

data[i]:=data[j];

data[j]:=tmp;

end

end;

Elsebegin

Write('Такого поля не существует!');

Readkey;

Exit;

end

end;

ReWrite(F);

for i:=0 to count do

Write(F, data[i]);

Close(F);

Writeln;Writeln;

Writeln('После сортировки...');Writeln;

view;

Writeln;

Writeln;

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

Readkey;

end;

end;

end;

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

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