сортировка

[Serikbye]

можете помочь?! я програмку написал но не могу сюда добавить процедуру сортировки. (все готова, мне лишь нужна сортировка по этой проге)
а вот и само задание: Дан список, содержащий 10 записей, каждая из которых содержит четыре поля: 1 – шифр товара (символьное поле длиной 5), 2 – наименование товара (символьное поле длиной 20), 3- цена (вещественное положительное число), 4 - количество экземпляров (целое положительное число).
Список упорядочен по убыванию цены товара.
Разработать алгоритмы и программы линейного и двоичного поиска всех товаров, имеющих цену меньше 20000 тенге

а вот и сама программа:

  Type
 t_time=record
  end;
 tzap=record {описание типа для одной записи списка}
 shifr:string[5];
 nai:string[20];
 kol:integer;
 price:real;
 end;
Var Spis:array[1..10]of tzap; {описание списка}
 i,n:byte;

 Begin
 begin
 Write(' введите число записей в списке N = ');
 Readln(N);
 Writeln('введите список по полям - каждое поле с новой строки');
 For i:=1 to N do
 With Spis[i] do
 begin
Write(' шифр товара - 5 символов ');
Readln(shifr);
Write(' наименование - 20 символов ');
Readln(nai);
Write(' количество = ');
Readln(kol);
 Write(' цена  = ');
 Readln(price);
 end;

 {организация поиска заданного товара в массиве записей Spis}
 for i:=1 to N do
 with Spis[i] do
 if price < 20000 then
 begin  writeln(' товары найдены');
 writeln(nai[i],' ');
 writeln(shifr[i],' ');
 writeln(kol);
 writeln(price);
 end;
 writeln('товары не найдены');
End;
end.

[puporev]

Type
tzap=record {описание типа для одной записи списка}
shifr:string[5];
nai:string[20];
kol:integer;
price:real;
end;
const n=10;
Var Spis:array[1..n]of tzap; {описание списка}
    i,j:byte;
    x:tzap;
begin
//..........................
{сортировка по убыванию цены}
for i:=1 to n-1 do
for j:=i+1 to n do
if spis[i].price<spis[j].price then
 begin
  x:=spis[i];
  spis[i]:=spis[j];
  spis[j]:=x
 end;
..............................

[Stilet]

Смотрим внимательно сюда (сортировка записей):
http://www.programmersforum.ru/showthread.php?t=33047
http://www.programmersforum.ru/showthread.php?t=94486

Бинарный поиск можно подсмотреть здесь:
http://www.programmersforum.ru/showt...288#post729288

[Serikbye]

Спасибо за помощь, очень помогли.
не могли бы помочь еще с двоичным поиском. и еще не могли бы сказать, эта работа удовлетворяет условием задания(тут нужно было написать программу с помощью линейного поиска всех товаров)
вот исправленная работа:

Type
 tzap=record {Описание типа для одной записи списка}
 shifr:string[5];
 nai:string[20];
 kol:integer;
 price:real;
 end;
const n=5;
Var Spis:array[1..n]of tzap; {Описание списка}
 i,j:byte;
 x:tzap;


 Begin
 begin

 Writeln('Введите список по полям - каждое поле с новой строки');
 For i:=1 to N do
 With Spis[i] do
 begin
Write(' Шифр - 5 символов ');
Readln(shifr);
Write(' Наименование - 20 символов ');
Readln(nai);
Write(' Количество = ');
Readln(kol);
 Write(' Цена товара = ');
 Readln(price);
 end;

 {Oрганизация поиска заданного товара в массиве записей Spis}
WriteLn('Удовлетворяют запросу товары:');
WriteLn;
 with Spis[i] do
  begin
//сортировка по убыванию цены
for i:=1 to n-1 do
for j:=i+1 to n do
if spis[i].price<spis[j].price then
 begin
  x:=spis[i];
  spis[i]:=spis[j];
  spis[j]:=x
 end;
  for i:=1 to N do
 if price < 20000 then
 begin
writeln('шифр: ',spis[i].shifr );
WriteLn('наименование: ',spis[i].nai);
WriteLn('количество: ',spis[i].kol);
WriteLn('цена:',spis[i].price);
 end;
End;
readln;
end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.