Удалить из массива все элементы, в которых есть цифра 5 - Pascal ABC

Формулировка задачи:

При решении задач применять процедуры и функции. Дан массив целых чисел (п=15), заполненный случайным образом числами из промежутка (-20,50): а) Удалить из него все элементы, в которых есть цифра 5. б) Вставить число К после всех элементов, кратных своему номеру (К вводить с клавиатуры). в) Поменять местами первый положительный и последний отрицательный элементы.

Решение задачи: «Удалить из массива все элементы, в которых есть цифра 5»

Листинг программы

uses  Crt;
const high = 50;
      low  = -20;
      n    = 15;
type  int = 1..n;
      massiv = array [int] of integer;
var   mas : massiv;
 
Procedure In_Mas(var m:massiv; phight, plow : integer);
          var i : byte;
          Begin
               for i:=1 to n do
                   m[i]:=plow+Random(phight-plow+1);
          End;
Procedure Out_Mas(const m:massiv);
          var i : byte;
          Begin
               for i:=1 to n do
                   Write(m[i]:4);
          End;
Procedure New_Mas(var m:massiv);
          var i, j, k : byte;
              temp : integer;
          Begin
               for i:=1 to n do
                   if m[i] > 0 then
                   begin
                        j:= i;
                        break;
                   end;
               for i:=1 to n do
                   if m[i] < 0 then k:= i;
               temp:= m[j];
               m[j]:=m[k];
               m[k]:= temp;
          End;
BEGIN
     ClrScr;
     Randomize;
     In_Mas(mas, high, low);
     Out_Mas(mas);
     WriteLn;
     New_Mas(mas);
     Out_Mas(mas);
END.

Объяснение кода листинга программы

В начале кода объявляются необходимые переменные и структуры данных.
В процедуре In_Mas происходит заполнение массива случайными числами в диапазоне от plow до phight.
В процедуре Out_Mas происходит вывод содержимого массива на экран.
В процедуре New_Mas происходит перестроение массива таким образом, чтобы все положительные элементы были расположены в начале, а отрицательные - в конце.
Код начинается с инициализации переменных и структуры данных, затем выполняется последовательность действий, описанных в процедурах In_Mas, Out_Mas и New_Mas.
В конце кода выводится сообщение и очищается экран.