Обработка массивов на Паскаль :)

[Nikita3000]

Задание.
Сделать блок схему и написать программу.
Вводятся два массива:
-наименование изделия;
-цена изделия.
Выбрать и распечатать те изделия, цена
которых ниже заданного уровня.Предельный уровень цены
изделия вводится с экрана.

[Sciv]

Задание принято, не хотите обсудить оплату?

[Mad_Cat]

readln(maxp);
for i:=1 to n do
if p[i]<maxp then Writeln(nm[i],' - ',p[i] );