стек )найдите ошибку...

[jekie182]

нужно вивести инфу о самомих дешових товаров, а виводит только об одном
ето стек

program cinnyk;
uses crt;
type
spusok=record
  nazva:string[20];
  cina:word;
  end;

  TypeFile=file of spusok;
  ptr=^element;
  element=record
  dani:spusok;
  next:ptr;
  end;
var head:ptr; f:TypeFile; NameFile:string; z:spusok;

procedure StvorFile(var f:TypeFile);
var z:spusok;
begin
rewrite(f);
write('vvedit nazvy tovare:  ');
readln(z.nazva);
while z.spusok<>'#' do
begin
    write('vvedit ciny tovary  ');
    readln(z.cina);
    write(f,z);
    writeln('vvedit prizv. end-#');
    readln(f,z);
    end;
    close(f);
end;

procedure AddElem(var head:ptr; z:spusok);
var X:ptr;
begin
 New(x);
 X^.dani:=z;
 X^.next:=head;
 head:=X;
end;

procedure Delstek(var head:ptr);
var X:ptr;
begin
  while head <>nil do
  X:=head;
  head:=head^.next;
  dispose(X);
  end;
end;

procedure VivodFile(var f:TypeFile);
var z:spusok;
begin
 reset(f);
 writeln('dani stvorenogo spusky');
 writeln('nazva',20,'cina',15,);
 while not Eof(f) do
 begin
 read(f,z);
 writeln(z.nazva:20, z.cina:15);
 end;
 close(f);
end;
 
 procedure VivodStek(var head:ptr);
 var z:spusok; X:ptr;
 begin
   writeln(' info pro dorogyx');
   writeln('nazva',20,'cina',15,);
   while head <>nil do
   begin
   X:=head;
   Z:=X^.dani;
   writeln(z.nazva:20, z.cina:15);
   head:=head^.next;
   dispose(X);
   end;
end;
{-----------------------------------------------------------------------}
BEGIN
CLRSCR;
WRIRELN('nazva faila');
readln(namefile);
assign(f,namefile);
stvorfile(f);
clrscr;
vivodfile(f);
head:=nil;
reset(f);
while not eof(f) do
    begin
    head:=min if head < head^.next then     head^next:=min;
    head:=head^.next;
    writeln('deshevyi tovar',min);
    readln;
    end;
end.

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

[Serge_Bliznykov]

что означает "вивести инфу о самомих дешових товаров" ?!
о всех, цена которых равна минимальной?
или о каких товарах идёт речь?

[Stilet]

Мне думается что речь идет о сортировке товаров, и выводе тех кто попадает в некий вводимый пользователем минимальный порог.
Если да то:

 procedure VivodStek(var head:ptr);
 var z:spusok; X:ptr;porog:word;
 begin
   Write('Порог цены ');readln(porog);
   writeln(' info pro dorogyx');
   writeln('nazva',20,'cina',15,);
   while head <>nil do
   begin
   X:=head;
   Z:=X^.dani;
   if(z.cina<=porog) then
    writeln(z.nazva:20, z.cina:15);
   head:=head^.next;
   dispose(X);
   end;
end;

cina:word;

Что совсем без копеек???

[jekie182]

нет))вот условие))
создать файл записи с полями название товара и его цена)
за один просмотр файла вывести названия самих дешових товаров))