Дан целочисленный массив A размера N (= 15). Переписать в новый целочисленный массив N все элементы с порядковыми номерами, кратными трем (3, 6, .), и вывести размер полученного массива B и его содержимое — Pascal(Паскаль)

uses crt;
const nmax=100;
var a,b:array[1..nmax] of integer;
    i,n,k:integer;
begin
 clrscr;
 randomize;
 repeat
 write('введите количество элементов массива до ',nmax,' n=');
 readln(n);
 until n in [1..nmax];
 writeln('сформирован массив целых чисел:');
  for i:=1 to n do
   begin
    a[i]:=random(100);
    write(a[i]:3);
  end;
 writeln;
 k:=0;
 i:=0;
 while i<n do
  begin
   i:=i+3;
   k:=k+1;
   b[k]:=a[i];
  end;
 writeln('сформирован новый массив из элементов первого массива:');
 for i:=1 to k do
 write(b[i]:3);
writeln;
write('размер массива=',k);
readln
end.