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

program ex1;
const n=10;
type myarray=array [1..n] of integer;
var a:myarray;
k:integer;
procedure init1(var m:myarray);
var i:integer;
BEGIN
randomize;
for i:=1 to n do
m[i]:=random(20);
end;
procedure print(m:myarray);
var i:integer;
begin
for i:=1 to n do
write(m[i]:3);
writeln;
end;
Function Maximum(m: myarray): Integer;
Var i,q,z,maxi : Integer;
Begin
For i:=1 To n Do 
 if m[i] mod 5 = 0 then 
 maxi:=i; 
Maximum:=maxi;
begin
q:=i div 10;
z:=i mod 10;
 if  (z mod 5 = 0) or (q mod 5 = 0) then 
  end;
end;
Procedure Delete(k1:Integer;Var m:myarray);
Var i : Integer;
Begin 
For i:=k1 To n-1 Do
m[i]:= m[i+1]; 
m[n]:=0;
End;
Begin
Randomize; 
Init1(A); 
Print(A); 
k:=Maximum(A); 
Delete (k,A); 
Print(A); 
Readln;
End.

program ex1;
const nmax=15;
type myarray=array [1..nmax] of integer;
procedure init1(var m:myarray;n:integer);
var i:integer;
BEGIN
randomize;
for i:=1 to n do
m[i]:=-20+random(71);
end;
procedure print(m:myarray;n:integer);
var i:integer;
begin
for i:=1 to n do
write(m[i]:4);
writeln;
end;
 
Procedure Delete(var m:myarray;var n:integer);
Var i,j,a : Integer;
Begin
i:=1;
while i<=n do
 begin
  a:=abs(m[i]);
  if(a mod 10=5)or(a div 10=5) then
   begin
    if i=n then n:=n-1
    else
     begin
      for j:=i to n-1 do
      m[j]:=m[j+1];
      n:=n-1;
     end
   end
  else i:=i+1;
 end
End;
 
var a:myarray;
    n:integer;
Begin
Randomize;
n:=15;
Init1(A,n);
Print(A,n);
Delete (A,n);
Print(A,n);
Readln;
End.