Заполнить одномерный массив из 12 элементов первыми натуральными числами,делящимися нацело на 17 или 13 и больше 300 — Pascal(Паскаль)

var
    a:array[1..12] of integer;
    i,x:integer;
begin
    i:=1;
    x:=301;
    while i<=12 do
        begin
            if (x mod 13=0) or (x mod 17=0) then
            begin
                a[i]:=x;
                write(a[i],' ');
                inc(i);
            end;
            inc(x);
        end;
    readln;
end.