Помогите программирование сделать.

Question

Решение задач с использованием простых записей, создать программу в Pascal 
5. Из ассортимента конфет, выпускаемых пермской кондитерской
фабрикой, выбрать те, стоимость которых от 30 до 55 руб. за
1 кг. Указать срок их годности и номера магазинов, в которых они
имеются в продаже. На оценку удовлетворительно»
Организовать ввод записей согласно условия задачи

user_3172588 · Accepted Answer

type info = record
sort: string [13];
price: byte;
age: byte;
magazin: integer;
end;
var i, n, k: integer;
table: array [1..100] of info;
const sortname: array [1..8] of string = ('Родина','Забава','Наслаждение','Услада','Наваждение','Гематоген','Любимые','Коровка');
sortprice: array [1..8] of byte = (25,30,17,54,60,48,54,19);
begin
randomize;
write (' Введите количество магазинов [1..100]: ');
readln (n);
for i:=1 to n do
begin
k:=1+random(8);
table[i].sort:= sortname[k];
table[i].price:= sortprice[k];
table[i].age:=1+random(6);
if i=1 then table[i].magazin:=100+random(5)
else table[i].magazin:=table[i-1].magazin+1+random(5);
end;
writeln('_'*50);
writeln ('Сорт ':10,'Цена,':16,'Срок':10,'№':10);
writeln ('конфет':10,'1 кг':15,'годности':13,'магазина':12);
writeln('¯'*50);
for i:=1 to n do
begin
write (table[i].sort);
write (' '*(15-length(table[i].sort)));
write (table[i].price:9);
write (table[i].age:10);
writeln (table[i].magazin:13);
end;
writeln('¯'*50); 
writeln;
writeln;
writeln ('Указать срок годности конфет и номера магазинов, ', #10, 
'в которых они имеются в продаже по цене 33..50 руб/кг');
writeln('_'*50);
writeln ('Сорт ':10,'Срок':26,'№':10);
writeln ('конфет':10,'годности':28,'магазина':12);
writeln('¯'*50);
for i:=1 to n do
if (table[i].price >= 30) and (table[i].price <= 55) then 
begin
write (table[i].sort);
write (' '*(24-length(table[i].sort)));
write (table[i].age:10);
writeln (table[i].magazin:13);
end;
writeln('¯'*50);
end.