Написать программу Паскаль - Вывести на экран элементы , которые больше значения элемента, номер которого введен с клавиатуры

Var
  arr : array [1..30] of integer;
  i, number : integer;
begin
  //Заполнение массива случайными числами
  for i := 1 to 30 do
    arr[i] := Random(10000) - 5000;
  //---
  //Считывание номера элемента и проверка на соответствие условию
  write(Введите число: );
  readln(number);
  if not (number in [1..30]) then
  begin
    write(Ошибка. Номер элемента выходит за границу массива);
    Exit;
  end;
  //---
  //Вывод массива с учётом условия
  for i := 1 to 30 do
    if arr[i] > arr[number] then
      write(arr[i], );
  //---
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.