Нужно написать программу, которая сначала выводит до 30 рандомных чисел от 20 до 85, затем спрашивает число(оно должно вписываться с клавиатуры). после этого нужно вывести на экран числа, которые больше введённого числа.если таких нет, тогда выводится на экран "нет"

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";

ПЕР
  массив: РЯД 30 ИЗ ЦЕЛ;
  сч, число: ЦЕЛ;
  найдено: КЛЮЧ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
    массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 65)) + 20;
    Вывод.ЧЦел("%d ", массив[сч], 0, 0, 0)
  КОН;
  Вывод.Цепь("^");
  число := Приём.Число();
  Вывод.Цепь("^");
  найдено := ОТКЛ;
  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
    ЕСЛИ массив[сч] > число ТО
      Вывод.ЧЦел("%d ", массив[сч], 0, 0, 0);
      ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
    КОН
  КОН;
  ЕСЛИ НЕ найдено ТО Вывод.Цепь("нет") КОН

КОН Задание.