Массив целых чисел. Вставка и обмен элементов

program z;
var i,j,b,b1,k,n,f,l,k2:integer;
a:array [1..30] of integer;
procedure del(c:array [1..30] of integer; m:integer; k1:integer; var c1:array [1..30] of integer);
     var j:integer;
     begin
          for j:=m to 15-k1 do
              a[j]:=a[j+1];
     end;
procedure ins(c:array [1..30] of integer; m,l1,k1:integer; var c1:array [1..30] of integer);
     var j:integer;
     begin
          for j:=15+l1 downto m+1 do
                   a[j]:=a[j-1];
          a[m+1]:=k1;
                   
     end;
begin
     writeln('Случайный вектор');
     randomize;
     for i:=1 to 15 do
         begin
              a[i]:=trunc((50-(-20))*random+(-20));
              write(a[i],' ');
         end;
     writeln;
     k:=0; n:=1; l:=0;
     repeat
           l:=l+1;
           for i:=n to 15-k do
               begin
                    b:=abs(a[i]); f:=0;
                    while b<>0 do
                          begin
                               b1:=b mod 10;
                               if b1=5
                                  then
                                      f:=1;
                               b1:=b div 10;
                               b:=b1;
                          end;
                    if f=1
                       then
                           begin
                                k:=k+1;
                                del(a,i,k,a);
                                n:=1;
                           end;
               end;
         until l=15;
         writeln;
         writeln('Вектор с удаленными элементами, в записи которых есть цифра 5');
         for i:=1 to 15-k do
             write(a[i],' ');
         writeln;
         writeln('Кол-во удаленных элементов - ',k);
         writeln;
         write('Введите число k: ');
         readln(k2);
         l:=0;
         for i:=1 to 15-k do
             if a[i] mod i=0
                then
                    begin
                         l:=l+1;
                         ins(a,i,l,k2,a);
                    end;
         writeln;
         writeln('Вектор со вставленным числом',k2,' после каждого элемента, который кратный своему индексу');
         for i:=1 to 15-k+l do
             write(a[i],' ');
         writeln;
         writeln('Кол-во вставок - ',l);
         for i:=1 to 15-k+l do
             if a[i]>0
                then
                    begin
                         b:=i;
                         break;
                    end;
         writeln;
         writeln('Первый положительный элемент - ',a[b]);
         for i:=1 to 15-k+l do
             if a[i]<0
                then
                    b1:=i;
         writeln('Последний отрицательный элемент - ',a[b1]);
         k2:=a[b];
         a[b]:=a[b1];
         a[b1]:=k2;
         writeln;
         writeln('Вектор с переставленными первым положительным и последним отрицательным элементами');
         for i:=1 to 15-k+l do
             write(a[i],' ');
         writeln;
end.