Дан массив целых чисел n=25. Удалить, вставить, перенести

Uses crt;
const n=25;
var a,b:array[1..3*n] of integer;{возьмем размер массива с запасом для вставок чисел}
    m,i,j,c,k1,k2,k,x:integer;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=-35+random(111);
  write(a[i]:4);
 end;
writeln;
writeln;
{запомним массив и его размер, будем удалять}
b:=a;
m:=n;
i:=1;
while i<=m do
 begin
  c:=abs(b[i]);
  while c>10 do
  c:=c div 10;{первая чифра}
  if c mod 2=0 then{если четная}
   begin
    if i=m then m:=m-1 {если число последнее}
    else {если не последнее}
     begin
      for j:=i to m-1 do
      b[j]:=b[j+1];{сдвигаем влево}
      m:=m-1;{уменьшаем размер}
     end;
   end
  else i:=i+1;
 end;
writeln('Удаление элементов, начинающихся на четную цифру:');
for i:=1 to m do
write(b[i]:4);
writeln;
writeln;
{опять возьмер исходный массив}
b:=a;
m:=n;
write('Введите число для сравнения c=');
readln(c);
write('Введите число для вставки после больших ',c,' k1=');
readln(k1);
write('Введите число для вставки перед кратными 3 k2=');
readln(k2);
i:=1;
while i<=m do
 begin
  if(b[i] mod 3=0)and(b[i]>c) then{если кратно 3 и больше с}
   begin
    if i=m then{число последнее}
     begin
      m:=m+2;{добавим 2}
      b[m]:=k1;{в конец к1}
      b[m-1]:=b[m-2];{само число предпоследнее}
      b[m-2]:=k2;{перед ним к2}
      break;{выходим из цикла, чтобы не проверяло к1}
     end
    else{если не последнее}
     begin
      m:=m+2;{+2}
      for j:=m downto i+3 do{сдвиг вправо на 2 элемента}
      b[j]:=b[j-2];
      b[i+2]:=k1;{за ним к1}
      b[i+1]:=b[i];{само число}
      b[i]:=k2;{перед ним к2}
      i:=i+3;{перешагиваем на +3}
     end;
   end
  else if(b[i] mod 3=0)and(b[i]<=c) then{кратное 3 и ме больше с}
   begin
    m:=m+1;
    for j:=m downto i+1 do
    b[j]:=b[j-1];
    b[i]:=k2;{вставим перед ним к2}
    i:=i+2;{перешагнем}
   end
  else if (b[i] mod 3<>0)and(b[i]>c) then{если не кратно 3 и больше с}
   begin
    if i=m then{если число последнее}
    begin
      m:=m+1;{добавим 1}
      b[m]:=k1;{в конец пишем к}
     end
    else{если не последнее}
     begin
      m:=m+1;{+1}
      for j:=m downto i+2 do{сдвиг вправо на 1 элемент}
      b[j]:=b[j-1];
      b[i+1]:=k1;{за числом пишем к1}
      i:=i+2;{перешагиваем на 2}
     end;
   end
  else i:=i+1;
 end;
writeln('Массив после вставок:');
for i:=1 to m do
write(b[i]:4);
writeln;
writeln;
{можно использовать основной масив-последнее действие}
repeat
write('Сколько элементов перенести от 1 до ',n-1,' k=');
readln(k);
until k in [1..n-1];
for i:=1 to k do{к раз}
 begin
  x:=a[1];{запоминаем ппервый}
  for j:=1 to n-1 do{сдвигаем влево на 1}
  a[j]:=a[j+1];
  a[n]:=x;{пишем его в конец}
 end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i]:4);
readln
end.