Разветвленный вычислительный процесс

[vodafone-isq]

Необходимо написать программу в Delphi, которая позволяет производить вычисление согласно разветвленного процесса, а именно вот этого примера:
lab2.bmp
С написанием кода получается ошибка, только не могу понять где. Помогите пожалуйста!

var
st:string;
b,c,x,q,xmax,xmin,min,max:real;
begin
b:=StrToFloat (Edit1.Text);
xmin:=StrToFloat (Edit2.Text);
xmax:=StrToFloat (Edit3.Text);
max:=-maxint;
min:=maxint;
x:=xmin;
St:='Результати роботи  програми'+#13;
1: If (b*x)<1 then q:=b*x-LogN(10,b*x);
If b*x=1 then q:=1;
If b*x>1 then q:= b*x+Ln(b*x)
st:=st+' x='+floatToStr(x)+' '+'q='+floatToStr(q)+#13;
Label7.Caption:=st;
if q<min then min:=q;
if q>max then max:=q;
x:=x+c;
if x<xmax then goto 1;
label9.caption:='Максимальне Y= '+floatToStr(max);
label8.caption:='Мінімальне Y= '+floatToStr(min);

[vodafone-isq]

Вот еще визуальная часть программы, может поможет:lab2.GIF

[Stilet]

Вот цикл вычислений.

x:=0.5;while x<=3 do begin
 if x<1 then q:=x-log(x) else
  if x=1 then q:=1 else q:=x+ln(x);
x:=x+0.25;
end;

Смысл понятен?