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

while not EOF(F) do

begin

Read(F, data[count]);

inc(count);

end;

Close(F);

dec(count);

case sortPole of

1: begin

for i:=0 to count do

for j:=i+1 to count do

if data[i].isd[1]>data[j].isd[1] then

begin

tmp:=data[i];

data[i]:=data[j];

data[j]:=tmp;

end;

end;

2: begin

for i:=0 to count do

for j:=i+1 to count do

if data[i].mat[1]>data[j].mat[1] then

begin

tmp:=data[i];

data[i]:=data[j];

end;

end;

3: begin

for i:=0 to count do