Дан массив целых чисел (n=12), заполненный случайным образом числами

program prog123;
 
const
  n = 12;
  arrAlowLim = -10;
  arrAtopLim = 60;
 
type
  arrOfInt = array [1..n] of integer;
 
function printRandomArr(topLim, lowLim: integer): arrOfInt;
var
  arrA: arrOfInt;
  cter: integer;
begin
  Write('Исходный массив: ');
  for cter := 1 to n do
  begin
    arrA[cter] := random(lowLim, topLim);
    Write(arrA[cter], ' ');
  end;
  printRandomArr := arrA;
end;
 
function LastOfNum(param: integer): shortint;
begin
  LastOfNum := abs(param) mod 10;
end;
 
function getUserK: shortint;
var
  k2, code: integer;
  k1: string;
begin
  repeat
    k2 := -1;
    Write(#10'2. Введите цифру k: ');  
    ReadLn(k1);
    val(k1, k2, code);
    if code <> 0 then begin
      WriteLn('Вы пытаетесь ввести не целое число.');
      continue;
    end;
    if abs(k2) > 9 then
      WriteLn('k больше допустимого.');
  until k2 in [0..9];
  getUserK := k2;
end;
 
function condition1(p1, p2: integer): boolean;
begin
  if p2 = 0 then 
    condition1 := false
    else
  if (p2 mod 2 = 0) and (p1 mod p2 = 0) then 
    condition1 := true
  else
    condition1 := false;      
end;
 
function condition2(p1, p2: shortint): boolean;
begin
  condition2 := false;
  if LastOfNum(p1) = p2 then
    condition2 := true;
end;
 
procedure DeleteWithCond1(arrA: arrOfInt);
var
  i, m: integer;
begin
  Write(#10'1. Массив после удаления: ');
  m := 0;
  for i := 1 to n do
    if condition1(arrA[i], LastOfNum(arrA[i])) then 
      inc(m)
    else
      arrA[i - m] := arrA[i];
  for i := 1 to n - m do
    Write(arrA[i], ' '); 
end;
 
procedure InsertWithCond2(k: shortint; arrA: arrOfInt);
var
  arrB: array of integer;
  i, j, p: integer;
begin
  Write('2.1. Массив после вставки (изменился, если есть элементы с последней цифрой', ' ', k, ')', ':'#10);
  p := 0;
  for i := 1 to n do 
    if condition2(arrA[i], k) then
      inc(p, 2);
  setlength(arrB, n + p);
  j := 0;
  for i := 1 to n do
    if condition2(arrA[i], k) then begin
      arrB[j] := k;
      arrB[j + 1] := arrA[i];
      arrB[j + 2] := k;
      inc(j, 3);
    end
    else begin
      arrB[j] := arrA[i];
      inc(j);
    end;
  for i := 0 to n + p - 1 do
    Write(arrB[i], ' ');
  arrB:=nil;
end;
 
procedure Reverse(arrA: arrOfInt);
var
  i, j: integer;
begin
  Write(#10'3. Массив после перестановки: ');
  i:=1;
  j:=n;
  while i<j do begin
      write(arrA[i],' ',arrA[j],' ');
      inc(i);
      dec(j);
  end;
end;
 
var
  arrA: arrOfInt;
  k: integer;
 
begin
  arrA := printRandomArr(arrAlowLim, arrAtopLim);
  DeleteWithCond1(arrA);
  k := getUserK();
  InsertWithCond2(k, arrA);
  Reverse(arrA);      
end.