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

Program Pr4;
 uses crt;
var a,b:array[1..30] of integer;
    n,i,j,k,pp,po:integer;
begin
clrscr;
randomize;
n:=15;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(51)-10;
 write(a[i]:4);
 end;
writeln;
b:=a;
{удаление с цифрой 3}
i:=1;
while i<=n do
 begin
 k:=abs(b[i]);
 if(k mod 10=3)or(k div 10=3)then
 begin
 for j:=i to n-1 do
 b[j]:=b[j+1];
 n:=n-1;
 end
 else i:=i+1;
 end;
writeln('Удалены числа с цифрой 3:');
for i:=1 to n do
write(b[i]:4);
writeln;
b:=a;
n:=15;
write('Введите число для вставки k=');
readln(k);
i:=1;
while i<=n do
if b[i] mod i=0 then{отрицательные числа не кратные, у них остаток не 0, а -1
 например -2/2=-1}
 begin
 n:=n+1;
 for j:=n downto i+2 do
 b[j]:=b[j-1];
 b[i+1]:=k;
 i:=i+2;
 end
else i:=i+1;
writeln('Вставка числа ',k,' после элементов, кратных своему индексу');
for i:=1 to n do
write(b[i]:4);
writeln;
//на последнем действии можно использовать уже исходный массив
n:=15;
pp:=0;
for i:=1 to n do
if a[i]>0 then pp:=i;
po:=0;
for i:=n downto 1 do
if a[i]<0 then po:=i;
k:=a[pp];a[pp]:=a[po];a[po]:=k;
writeln('Обмен первого отрицательного и последнего положительного:');
for i:=1 to n do
write(a[i]:4);
readln
end.

Program Pr4;
 uses crt;
 type mass=array [1..30] of integer;
var a,b,c,e:mass;
    o,pp,t:integer;
procedure vvod (var x:mass;n:integer);
var i:integer;
begin
Writeln('исходный массив'); 
 
      for i:=1 to n do x[i]:=random(51)-10;
      b:=a;
      c:=a;
      e:=a;
end;
procedure vivod (x:mass;n:integer);
var i:integer;
begin 
 
      for i:=1 to n do write(x[i]:5);
end;
procedure del(n:integer;var d:mass);
var i,j,k:integer;
begin 
writeln('массив с удаленными из него элементами, в которых есть цифра 3');
i:=1;
while i<=n do
 begin
 k:=abs(b[i]);
 if(k mod 10=3)or(k div 10=3)then
 begin
 for j:=i to n-1 do
 d[j]:=d[j+1];
 n:=n-1;
 inc(t)
 end
 else i:=i+1;
 end;
 pp:=o-t;
 end;
procedure obmen(var a:mass;n:integer);
var pp,po,k,i:integer;
begin
writeln('массив где последний положительный и первый отрицательный элементы поменяты местами');
pp:=0;
for i:=1 to n do
if a[i]>0 then pp:=i;
po:=0;
for i:=n downto 1 do
if a[i]<0 then po:=i;
k:=a[pp];a[pp]:=a[po];a[po]:=k;
end;
begin
clrscr;
o:=15;
t:=0;
vvod(a,o);
vivod(a,o);
writeln;
del(o,b);
vivod(b,pp);
writeln;
obmen(e,o);
vivod(e,o);
readln;
end.

program Pr4;
 
uses
  crt;
 
type
  mass = array [1..30] of integer;
 
var
  a: mass;
  o: integer;
 
procedure vvod(var x: mass; n: integer);
var
  i: integer;
begin
  Writeln('исходный массив'); 
  
  for i := 1 to n do x[i] := random(-10, 40);
end;
 
procedure vivod(var x: mass; n: integer);
var
  i: integer;
begin
  for i := 1 to n do write(x[i]:5);
end;
 
procedure del(var n: integer; var d: mass);
var
  i, j: integer;
begin
  writeln('массив с удаленными из него элементами, в которых есть цифра 3');
  i := 1;
  while i <= n do
  begin
    if(Abs (d[i]) mod 10 = 3) or (Abs(d[i]) div 10 = 3) then
    begin
      for j := i to n - 1 do
        d[j] := d[j + 1];
      n -= 1;
    end
    else i += 1;
  end;
end;
 
procedure InK(var n: integer; var a: mass);
var
  k: integer;
begin
  write('Введите число: ');
  readln(k);
  writeln('массив, где вставлено число ', k, ' после всех элементов, кратных своему номеру');
  var i := 1;
  while i <= n do
  begin
    if a[i] mod i = 0 then begin
      Inc(n);
      Inc(i);
      for var j := n downto i + 1 do
        a[j] := a[j - 1];
      a[i] := k;
    end;
    Inc(i);
  end
end;
 
procedure obmen(var a: mass; n: integer);
var
  pp, po, k, i: integer;
begin
  writeln('массив где последний положительный и первый отрицательный элементы поменяты местами');
  pp := 0;
  for i := 1 to n do
    if a[i] > 0 then pp := i;
  po := 0;
  for i := n downto 1 do
    if a[i] < 0 then po := i;
  k := a[pp];a[pp] := a[po];a[po] := k;
end;
 
begin
  clrscr;
  o := 15;
  vvod(a, o);
  vivod(a, o);
  writeln;
  del(o, a);
  vivod(a, o);
  writeln;
  InK(o, a);
  vivod(a, o);
  writeln;
  obmen(a, o);
  vivod(a, o);
  readln;
end.