(Delphi / Pascal) Составить листинг программы, которая выводит на монитор фамилии и имена студентов, имеющих средний не менее 4.

Var a: array of integer; // Объявление массива целых чисел
  i, n: integer; // объявление целочисленных переменных
begin
  // Запросим с клавиатуры размер массива
  // и запишем его в переменную n
  write('введите n:'); 
  readln(n);
  
  // Теперь выделим память под n элементов массива
  SetLength(a, n);
  
  // теперь запросим с клавиатуры n чисел для массива
  for i := 0 to n-1 do begin
    write('a[', i, ']=');
    readln(a[i]);
  end;
  
  // теперь в цикле уменьшим каждый элемент на единицу
  for i := 0 to n-1 do 
    a[i] := a[i] - 1;
  
  // распечатаем массив
  for i := 0 to n-1 do 
    write(a[i], ' ');
end.

Невнятно как-то сформулировано - то индексы найти, то массива нету... Пишу, как понял.

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

ПЕР
  массив: РЯД 15 ИЗ ВЕЩ;
  сч, найдено: ЦЕЛ;
  найденное, индексы: ДОСТУП К РЯД ИЗ ВЕЩ;

УКАЗ
  найдено := 0;
  СОЗДАТЬ(индексы, РАЗМЕР(массив) - 1);
  ОТ сч := 1 ДО РАЗМЕР(массив) - 1 ВЫП
    ЕСЛИ массив[сч] = массив[0] ТО
      найденное[найдено] := сч;
      УВЕЛИЧИТЬ(найдено)
    КОН
  КОН;
  ЕСЛИ найдено = 0 ТО Вывод.Цепь("Не найдено.")
  ИНАЧЕ
    СОЗДАТЬ(индексы, найдено);
    ОТ сч := 0 ДО найдено - 1 ВЫП
      индексы[сч] := найденное[сч]
    КОН;
    найденное := ПУСТО
  КОН

КОН Задание.