Вычисление чисел из промежутка

var
  t1: string;
 
var
  a, b, c, d, n: integer;
 
begin
  writeln('Вас приветствует программа по поиску кратных числу чисел в промежутке.');
  //writeln('Для начала работы,нажмите Enre');
  repeat
    writeln('Нажмите Enter для продолжения работы, введите "Хватит"+Enter для прекращения работы');read(t1);
    if t1 <> 'Хватит' then begin
      writeln('Введите числовой промежуток: начало и конец');read(a, b);
      writeln('Введите число,на которое должны делится числа');read(c);
      n := 0;
      while a <= b do
      begin
        d := a mod c;
        if d = 0 then begin
          n := n + 1;
          write(a, ' ')
        end;
        a := a + 1;
      end
    end;
    writeln();
    writeln('Список построен.Всего-', n, ' чисел/числа');  
  until t1 = 'Хватит';     
  writeln('Благодарим за использование');
end.

if t1 <> 'Хватит' then begin

writeln('Введите числовой промежуток: начало и конец');read(a, b);

Введите числовой промежуток: начало и конец