Написать программу в паскале 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.