Задача на тип запись: из ассортимента конфет выбрать те, стоимость которых от 30 до 55 рублей за 1 кг

[lililili]

из ассортимента конфет выбрать те, стоимость которых от 30 до 55 рублей за 1 кг. указать срок годности и номер магазинов,в которых они имеются в продаже. вывести на экран название конфет с самым большим сроком годности.

[VIK_aka_TOR]

показывайте структуру вашей записи, и остальные наработки по программе...

[Mad_Cat]

стоимость которых от 30 до 55 рублей за 1 кг. указать срок годности и номер магазинов,в которых они имеются в продаже

{
type TDat = record 
Y,M,D : Integer;
end;

type Tsweet = record
price:real;
sg:TDat;
shop:string[20];
end;
}
{...}
For i:=1 to N do
with sweet[i] do
if (price>=30) and (price<=55)
then write(sg.d,' /',sg.m,'/ ',sg.y,'    ',shop);
end
{....}