Где же у меня ошибка?? Делфи. Записи.

[Serge_Bliznykov]

как будет у меня и почему??????

двести записей Вам хватит?
Тогда объявляйте массив как

var VsyaMeblya: array[1..200] of zapus;

только непонятно, почему у Вас цена - это строковое поле, да ещё и длиной 200 символов?! Как Вы собираетесь искать мебель ценой более 200 гривен?!
Думаю, что так получше будет:

type zapus=record
  nazvanie:string[25];
  artikul:string[120];
  cina: double;
end;

а ещё я бы добавил запись/чтение данных из типизированного файла, чтобы каждый раз не вбивать одни и те же тестовые записи!

[bunny]

вроде дошло, но с трудом. Спасибо)

program mebel;

    type zapus=record
  nazvanie:string[25];
  artikul:string[120];
  cina: double;
  end;

  var VsyaMebеl: array[1..200] of zapus;
begin
  Writeln('wedite nazvanie');
  Writeln('wedite artikul');
  Readln (mebеl.nazvanie);
  writeln ('wedite artikul');
  readln (mebеl.artikul);
  writeln ('wedite cenu');
  readln(mebеl.cina);
  writeln ('wwod zakincheno');
  writeln ;
  writeln ('nazvanie: ', mebеl.25);
  writeln(' artikul: ', mebel.120);
  writeln(' cina : ', mebel.200);

end.
end.

так?

[Serge_Bliznykov]

bunny, нет. не так. я уже ответил Вам в приват.
но, пример рабочего кода повторю здесь.
Вдруг кому-то ещё пригодится (я так понял, что Вы тут целой группой/группами ходите... )

вот пример решения.

program mebel;

type zapus=record
nazvanie:string[25];
artikul:string[120];
cina: double;
end;

var
  VsyaMebel : array[1..200] of zapus;
  n : integer; {количество записей}
  i : integer; {переменная - счётчик цикла}
begin
  WriteLn('Wwedie, skolko bydet zapisej: ');
  Readln(n);
  if (n<1) or (n>200) then
    WriteLn('Stolko zapisej nelzya!')
  else begin
    for i:=1 to n do begin
       WriteLn('VVod ',i,'-й записи---');
       Writeln('  wedite nazvanie');
       Readln (VsyaMebel[i].nazvanie);
       Writeln('  wedite artikul');
       readln (VsyaMebel[i].artikul);
       writeln (' wedite cenu');
       readln(VsyaMebel[i].cina);
    end;
    writeln ('wwod zakincheno');


    {печать введённых данных}
    WriteLn('--- LIST (s CENOJ > 200 griven) ---');
    Writeln;
    Writeln('NAIMENOVANIE':25,'|','CENA':10);
    WriteLn('------------------------------------');
    for i:=1 to n do
      if VsyaMebel[i].cina>200 then
          writeln (VsyaMebel[i].nazvanie:25, '|', VsyaMebel[i].cina:10:2);

    WriteLn('------------------------------------');

    readln;
  end;
end.

[Wild_klas]

У тебя так будет по моему:

Type
 zapus=record
nazvanie:string[25];
artikul:string[120];
cina:200..99999999; 
end;
Const
Furniture:array[1..2] of zapus = ((Nazvanie:'Duvan'; Artikul:'modern'; Cina:2076),
                                      (Nazvanie:'Kpeslo'; Artikul:'office'; Cina:1267));

Рома, 102.
bunny, в цене я критерий твой указал, надеюсь что правильно

Serge_Bliznykov,спасибо вам за помощь, пригодилось.Вот только нужно было массив инициализировать, как типизованную константу.

[bunny]

Вот, а я та на кого Воробьёва сегодня сказала, что я дура....