проблемка с массивом

uses crt;
function Cif5(x:integer):boolean;
var m,c:byte;
begin
x:=abs(x);Cif5:=false;
while x>0 do
  begin
    m:=x mod 10;
    if m=5 then
      begin
       Cif5:=true;
       break;
      end;
    x:=x div 10;
  end;
end;
var t:array[1..100] of integer;
    n,i,j,p,o,k,b:integer;
begin
clrscr;
randomize;
n:=15;
writeln('Ishodnyj massiv:');
for i:=1 to n do
  begin
    t[i]:=random(71)-20;
    write(t[i],' ');
  end;
writeln;
writeln('Udalenie chisel s cifroj 5:');
i:=1;
while i<=n do
  begin
    if Cif5(t[i]) then
      begin
        for j:=i to n-1 do
        t[j]:=t[j+1];
        n:=n-1;
      end
    else i:=i+1;
  end;
for i:=1 to n do
write(t[i],' ');
writeln;
writeln('Vstavka chisla k:');
write('Vvedite element dlja vstavki:');
readln(k);
i:=n;
while i>=1 do
   begin
     if t[i] mod i =0 then
       begin
         n:=n+1;
         for j:=n downto i+1 do
         t[j]:=t[j-1];
         t[i+1]:=k;
       end;
     i:=i-1;
   end;
for i:=1 to n do
write(t[i],' ');
writeln;
writeln('Obmen elementov:');
for i:=1 to n do
if t[i]>0 then
  begin
    p:=i;
    break;
  end;
for i:=n downto 1 do
if t[i]<0 then
  begin
    o:=i;
    break;
  end;
b:=t[p];t[p]:=t[o];t[o]:=b;
for i:=1 to n do
write(t[i],' ');
writeln;
readln
end.