Составить программу на Паскале для обработки одномерного массива из 10 элементов

program Project1;
 
const
  maxelem = 10;
var
  a: array [1..maxelem] of real; { Переменные для  хранения массивов.}
  i: integer; { Вспомогательная переменная для организации цикла.}
  k: integer; { Переменная для подсчета количества найденных элементов}
begin
  for i:= 1 to maxelem do
    begin
      write('Введите значение ',i,' элемента: ');
      Readln(a[i]);       { Ввод значений элементов в массив}
    end;
  writeln('Исходный массив: ');
  for i:= 1 to maxelem do
    write(a[i]:6:2);      { Вывод элементов массива в консоль}
  writeln;
  writeln('Номера элементов, больших 5: ');
  k:= 0;
  for i:= 1 to maxelem do
    if a[i] > 5 then      { Условие для поиска элементов}
      begin
        write(i:4);
        inc(k);            { Подсчет количества элементов}
      end;
  writeln;
  writeln('Количество выбранных элементов: ', k);
  readln;
end.

program iii;
var
  s: string;  { Переменная для хранения строковой информации}
  i: integer;  { Переменная для организации поиска литеры}
begin
  writeln('Введите фразу: ');
  readln(s);                      { Ввод строковой информации в программу}
  for i:= length(s) downto 1 do   { Перебор индексов литер в строки с последнего до первого}
    if (s[i]='о') then            { Условие для поиска литеры}
      delete (s,i,1);             { Удаление найденной литеры}
  writeln(S);                     { Вывод результата в консоль}
  readln;
end.