Помогите исправить обработчик!

[Mr.User]

Написал небольшой обработчик, решающий следующую задачу:
Вводятся начальный член и шаг арифметической прогрессии. Вводится также число. Определить, принадлежит ли введенное число арифметической прогрессии с введенными начальным членом и шагом.
Вот сам обработчик:

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

Но обработчик содержит ошибки, и не способен решать выше изложеную задачу!
Помогите пожалуйста его исправить!

[Abbatik]

Попробуй так!

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

[Mr.User]

Программа не запускается!
Подчёркивается строка else begin и появляется сообщение:
[Pascal Error] Unit1.pas(40): E2153 ';' not allowed before 'ELSE'

[Карась]

Кусочек кода в котором ошибка.

Label1.Caption:=('Undoubtedly!'); goto 1; end; //Понятное дело, - является!      
else begin

Перед ELSE нельзя ставить ; . Что сообственно и указанно в ошибке.

Попробуй сам.

[Mr.User]

Я уберал запятые и т.д., - но ничего не помогает!
И не факт, что программа с данными изменениями будет работать как надо!

[Карась]

Label1.Caption:=('Undoubtedly!'); goto 1; end //Понятное дело, - является!         
else begin

Вод я убрал где надо. Какие ещё ошибки появились?... исходник скинь...

[Mr.User]

Извиняюсь, - не ту точку с запятой убирал!
Спасибо за помощь! Программа работает! (Правда она в место ответа "Yes" выдает всегда "undoubtedly", а "Yes" вообще не используется! Но это мелочи жизни!

[puporev]

Подправил немного твой код, чтобы все у тебя работало.

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.

[Mr.User]

Сообщение от puporev

Подправил немного твой код, чтобы все у тебя работало.

Большое СПАСИБО! Так намного лучше!
Нашёл три ошибочки! Исправил! Если интерестно, - то вот:
if n<ch then
begin //Число не может быть меньше чем начальный член!
while n>ch do
begin //Входим в цикл когда начальный член меньше числа!
ch:=ch+sh; //Прибавляем шаг арифметической прогрессии к начальному члену!

[Abbatik]

убери ";" перед else