Перенос данных из массива А в массив Б - Turbo Pascal

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

есть 2 массива, нужно чтоб числа которые делятся на 5 и не делятся на 7 были перенесены или скопированы из массива А в массив В, а потом числа которые были заполнили массив В были суммированы. как это сделать? Вот программа :

program Lab7;
uses crt;
var
A:array[1..1000000] of integer;
B:array[1..1000000] of integer;
k,k2,s,n,i,z,j:integer;
 
begin
Clrscr;
randomize;
writeln('Введите размер массива');
readln(n);
if n> 1000000 then writeln('Превышен допустимый размер массива');
writeln('Массив');
for i:=1 to n do
begin
A[i]:=-100+random(201);
writeln(A[i]);
end;

begin
k:=0;
if A[i] mod 5=0 then
k:=k+1;
writeln('Количество чисел делящиеся на 5 равно:');
writeln(k);
k2:=0;
if A[i] mod 7 <> 0 then
k2:=k2+1;
writeln('Количество чисел не делящиеся на 7 равно:');
writeln(k2);
end;

s:=k+k2;
writeln('Сумма чисел которые делятся на 5 и не делятся на 7:');
writeln(s);
end;
end.

Решение задачи: «Перенос данных из массива А в массив Б»

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

program Lab7;
uses
  crt;
const
  nmax=16200;
var
  A,B: array[1..nmax] of integer;
  k1, k2, k3, s, n, i: integer;
begin
  Clrscr;
  randomize;
  repeat
    write('Г‚ГўГҐГ¤ГЁГІГҐ Г°Г*Г§Г¬ГҐГ° Г¬Г*Г±Г±ГЁГўГ* n (n < ',nmax,'): ');
    readln(n);
    if n > nmax then writeln('ГЏГ°ГҐГўГ»ГёГҐГ* Г¤Г®ГЇГіГ±ГІГЁГ¬Г»Г© Г°Г*Г§Г¬ГҐГ° Г¬Г*Г±Г±ГЁГўГ*');
  until n < nmax;
  writeln('ГЊГ*Г±Г±ГЁГў A');
  for i := 1 to n do
  begin
    A[i] := -99 + random(199);
    write(A[i]:4);
    if (A[i] mod 5=0) or (A[i] mod 7<>0) then
    begin
      inc(k1);
      B[k1]:=A[i];
      s:=s+B[k1];
    end;
    if A[i] mod 5=0 then inc(k2);
    if A[i] mod 7<>0 then inc(k3);
  end;
  writeln;
  writeln('ГЊГ*Г±Г±ГЁГў B:');
  for i:=1 to k1 do write(B[i]:4); writeln;
  writeln('Г‘ГіГ¬Г¬Г* ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў = ',s);
  writeln('ГЉГ°Г*ГІГ*Г»Гµ 5: ',k2);
  writeln('ГЌГҐ ГЄГ°Г*ГІГ*Г»Гµ 7: ',k3);
  readln;
end.

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

В программе используется массив A и массив B для хранения данных.
Переменная k1, k2 и k3 используется для отслеживания индексов элементов массива B, которые содержат данные, скопированные из массива A.
Переменная s используется для хранения суммы элементов массива B.
Цикл while используется для перебора чисел от 1 до nmax и чтения соответствующего числа от пользователя. Если введенное число превышает nmax, программа выводит сообщение об ошибке и завершается.
В цикле for i := 1 до n do выполняется следующая последовательность действий:
- A[i] присваивается случайное число от -99 до 198.
- Выводится значение A[i].
- Если A[i] делится на 5 без остатка или не делится на 7 без остатка, то увеличивается значение k1, B[k1] присваивается значение A[i], и значение s увеличивается на B[k1].
- Если A[i] делится на 5 без остатка, то увеличивается значение k2.
- Если A[i] не делится на 7 без остатка, то увеличивается значение k3.
После завершения цикла for выводится сообщение о количестве элементов в массиве B.
Выводится сообщение о количестве элементов, которые были скопированы в массив B из массива A.
Выводится сообщение о количестве элементов, которые были скопированы в массив B из массива A, отсортированных по модулю 5.
Выводится сообщение о количестве элементов, которые были скопированы в массив B из массива A, отсортированных по модулю 7.