В отсортированном векторе каждый третий элемент заменить на значение «-3»

type
  tAr=array[1..100] of integer;
var
  a,c: tAr;
  n,k,i,j: byte;
  tmp: integer;
begin
  randomize;
  write('Введите размер первого массива: ');
  readln(n);
  writeln('Первый массив: ');
  for i:=1 to n do
  begin
    a[i]:=random(99)+1;
    write(a[i],' ');
  end;
  writeln;
 
  write('Введите размер второго массива: ');
  readln(k);
  writeln('Второй массив: ');
  for i:=1 to k do
  begin
    c[i]:=random(99)+1;
    write(c[i],' ');
  end;
  writeln;
  j:=0;
  for i:=n+1 to n+k do
  begin
    inc(j);
    a[i]:=c[j];
  end;
  writeln('Объединенный массив:');
  for i:=1 to n+k do write(a[i],' ');
  writeln;
  for i:=2 to n+k do
  begin
    for j:=n+k downto i do
      if a[j-1]>a[j] then
      begin
        tmp:=a[j-1];
        a[j-1]:=a[j];
        a[j]:=tmp
      end;
  end;
  writeln('Отсортированный объединенный массив:');
  for i:=1 to n+k do
  begin
    if i mod 3=0 then a[i]:=-3;
    write(a[i],' ');
  end;
  readln;
end.