Удалить из массива все элементы, в которых есть цифра 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.

const
  n=15;
type
  Tarr=array[1..n] of integer;
var
  a:Tarr;
  i,j,k:integer;
procedure Init(var x:Tarr);
var
  i:integer;
begin
  randomize;
  for i:=1 to n do
    x[i]:=-20+random(71);
end;
procedure Print(msg:string;x:Tarr;size:integer);
begin
  writeln(msg);
  for i:=1 to size do
    write(x[i]:4);
  writeln;
end;
function isFive(b:integer):boolean;
var
  f:boolean;
begin
  b:=abs(b);
  f:=false;
  while b<>0 do
    begin
      if b mod 10=5 then
        begin
          f:=true;
          break;
        end;
      b:=b div 10;
    end;
  isFive:=f;
end;
begin
  Init(a);
  Print('Ishodniy massiv',a,n);
  //udalenie
  k:=0;
  i:=1;
  while i<=n do
    if isFive(a[i]) then
      if i=n then
        inc(k)
      else
        begin
          for j:=i to n-1 do
            a[j]:=a[j+1];
          inc(k);
        end
    else
      inc(i);
  Print('Massiv posle udaleniya',a,n-k);
end.

uses  Crt;
const high = 50;
      low  = -20;
      n    = 15;
type  massiv = array [1..n*2] of integer;
var   mas : massiv;
      number : integer;
      new_n  : byte;
 
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; pn:byte);
          var i : byte;
          Begin
               for i:=1 to pn do
                   Write(m[i]:4);
          End;
Procedure New_Mas(var m:massiv; pnumber:integer; var pn:byte);
          var i, j : byte;
          Begin
               pn:= n;
               i:=pn;
               while i>=1 do
                     if m[i] mod i=0 then
                     begin
                          Inc(pn);
                          for j:=pn downto i+2 do
                              m[j]:=m[j-1];
                          m[i+1]:=pnumber;
                          dec(i)
                     end
                     else dec(i);
          End;
BEGIN
     ClrScr;
     Randomize;
     In_Mas(mas, high, low);
     Out_Mas(mas, n);
     WriteLn;
     Write('Введите число для вставки: ');
     ReadLn(number);
     New_Mas(mas, number, new_n);
     Out_Mas(mas, new_n);
END.