Вводятся начальный член и шаг арифметической прогрессии. Вводится также число. Определить, принадлежит ли введенное число арифметической прогрессии с введенными начальным членом и шагом — Pascal(Паскаль)

procedure TForm1.Button1Click(Sender: TObject);
var
  ch, sh, n: integer;
begin
  ch := StrToInt(Edit1.Text);
  sh := StrToInt(Edit2.Text);
  n := StrToInt(Edit3.Text);
  if n > ch then
  begin
    Label1.Caption := ('Incorrect value n!');
    exit;
  end;
  if n = ch then
  begin
    Label1.Caption := ('Undoubtedly!');
    exit;
  end;
  while n < ch do
  begin // Входим в цикл когда нач.член меньше либо равен числу!
    n := n + sh; // Если нет, - то прибавляем шаг ариф.прогресии!
  end;
  if n = ch then
    Label1.Caption := ('Yes!') // Число является числом из прогресии!
  else
    Label1.Caption := ('No!');
  // Перешагнули число, - значит число не из прогресии!
end;

end.