написать программу для решение задачи - посчитать количество чисел от 1 до 1000 кратных 7 и честных ( провереть кратность 7 командой mod введя условие если в цикл)

var   x,i,y:integer;begin  for i:=1 to 1000 do    begin      x:= i mod 7;      if x=0 then        begin        y:=y+1;        writeln (i);//строка выводит все числа кратные семи. она подлежит удалению       end;     end;  writeln (y);end.