Организовать перенос массива ai в cj по схеме - Turbo Pascal

Формулировка задачи:

Задание. Даны ai(i=1.20), cj(j=1.60). Организовать перенос массива ai в cj по схеме c1=a1; c4=a2; c7=a3; …. Напечатать заголовок, затем оба массива в произвольной форме. Помогите пожалуйста.

Решение задачи: «Организовать перенос массива ai в cj по схеме»

Листинг программы

var
  a:array[1..20] of integer;
  c:array[1..60] of integer;
  i,j:integer;
begin
  randomize;
  writeln('Исходные массивы:');
  writeln('А:');
  for i:=1 to 20 do
    begin
      a[i]:=random(20)-10;
      write(a[i]:4);
    end;
  writeln('С:');
  for i:=1 to 60 do
    begin
      c[i]:=random(60)-30;
      write(c[i]:4);
    end;
  writeln('Измененный С:');
  j:=1;
  i:=1;
  while i<=60 do
    begin
      c[i]:=a[j];
      i:=i+3;
      j:=j+1;
    end;
  for i:=1 to 60 do
    write(c[i]:4);
  readln;
end.

Объяснение кода листинга программы

Создаются два массива: a и c. Массив a содержит 20 элементов типа integer, а массив c содержит 60 элементов типа integer.
Задается начальное значение для генератора случайных чисел.
Выводится информация об исходных массивах: А: и С:. Для каждого элемента массива a выводится его значение, а для каждого элемента массива c выводится его значение.
Выполняется цикл while, который продолжается до тех пор, пока i меньше или равно 60. Внутри цикла происходит следующее:
- Значение элемента массива a присваивается элементу массива c с индексом i.
- Значение переменной i увеличивается на 3.
- Значение переменной j увеличивается на 1.
После завершения цикла while выводится информация об измененном массиве С:. Выводится значение каждого элемента массива c.
Программа завершается, и пользователю предлагается ввести данные для продолжения работы программы.