помогите решить задачу на записи (Pascal)

[Safe]

В записи хранится список товаров. Для каждого товара указаны его название, стоимость единицы товара в тыс. руб., количество и единица измерения (например, 100 шт., 20 кг).
Написать программу, выполняющую:
□ ввод списка с клавиатуры;
□ вывод на экран информации о товаре, название которого введено с клавиатуры;
□ вывод на экран информации о штучном товаре в диапазоне цен от 100 до 300 тыс. руб.;

премного благодарен.

[DM_bite]

И что сложного?

type Tovar = record
name: string;
st: integer;
kolvo: byte;
edizm: string;

Создаем массив записей:

var a:array [1..10] of Tovar;

Осуществление ввода с клавиатуры:

for i:= 1 to 10 do
 begin
 ReadLn(a[i].name);
 ReadLn(a[i].st);
 ReadLn(a[i].kolvo);
 ReadLn(a[i].edizm);
 end;

вывод на экран информации о товаре, название которого введено с клавиатуры;

ReadLn('название товара');
for i:= 1 to 10 do
 begin
 if 'название товара' = a[i].name then
 WriteLn(a[i].name,'____',a[i].st,'_____',a[i].kolvo,'_____',a[i].edizm);
 end;

вывод на экран информации о штучном товаре в диапазоне цен от 100 до 300 тыс. руб.;

for i:= 1 to 10 do
 begin
 if (a[i].st>100) or (a[i].st<300) and (a[i].edizm='шт') then 
WriteLn(a[i].name,'____',a[i].st,'_____',a[i].kolvo,'_____',a[i].edizm);
end;