Написать программу в паскале 8)найдите хотя одно натуральное число, которое делится на 11, а при делении на 2, 3, 4, 10 дает в остатке 1

Const n=11; var i,d,k: integer; begin   k: =0;   repeat   k: =k+n;   d: =0;   for i: =2 to 10 do if k mod i = 1 then d: =d+1;   until (d=9) or (k> 32000);   if d=9 then writeln('искомое число = ',k)           else writeln('число не найдено'); end.