Метод подбора (доделка программы )

[soulmaster]

если кто может помогите надо Решить методом подбора систему линейных уравнений второго порядка в общем виде с точностью аргумента 0.001 вывести соообщение в случае отсутвия решения (если величина невязки решения больше0.1)

вот что я накалякал

var A,B,C,a1,b1,c1,f1,f2,f,fmin,e,xmin,ymin,xmax,ymax,h,x,d,y:single;
i,j:integer;
g,s:string;
label 1;
label 2;
label 3;
begin
val (Edit1. Text, A,j);
if j<>0 then
begin
Edit1. Text:='Error';
exit;
end;
val (Edit2. Text, B,j);
if j<>0 then
begin
Edit2. Text:='Error';
exit;
end;
val (Edit3. Text, C,j);
if j<>0 then
begin
Edit3. Text:='Error';
exit;
end;
val (Edit4. Text, h,j);
if j<>0 then
begin
Edit4. Text:='Error';
exit;
end;
val (Edit5. Text, xmin,j);
if j<>0 then
begin
Edit5. Text:='Error';
exit;
end;
val (Edit6. Text, xmax,j);
if j<>0 then
begin
Edit6. Text:='Error';
exit;
end;
val (Edit7. Text, ymin,j);
if j<>0 then
begin
Edit7. Text:='Error';
exit;
end;
val (Edit8. Text, ymax,j);
if j<>0 then
begin
Edit8. Text:='Error';
exit;
end;
 val (Edit9. Text, A1,j);
if j<>0 then
begin
Edit9. Text:='Err';
exit;
end;
val (Edit10. Text, b1,j);
if j<>0 then
begin
Edit10. Text:='Err';
exit;
end;
val (Edit11. Text, c1,j);
if j<>0 then
begin
Edit11. Text:='Err';
exit;
end;
 x:=xmin ;
y:=ymin;
fmin:=1e9;
1:
f1:=a*x+b*y+(-1)*c;
f2:=a1*x+b1*y+(-1)*c1;
f:=abs(f1)+abs(f2);
if f<fmin then
begin
fmin:=f;
end;
if y<ymax then
begin
y:=y+h;
goto 1;
end;
if x<xmax then
begin
Y:=ymin;
x:=x+h;
end
else
begin
str(x:6:2,g);
edit12.text:=g;
str(y:6:2,s);
edit13.text:=s;
end;

end;

end.

прилагаю возможный ( подобный алгоритм, кто может помогите )

[Sibedir]

См. мой вариант
Решение ур-ий.zip

Использование меток label в Pascal'е разрешается, но считается дурным тоном. Хотя я не против. Если очень нравится...

[soulmaster]

На счет лейблов я заняюю что это дурной тон ,но нас так учат...Ибо не програмер я , а строитель.. спасибо,что помог ))

[Sibedir]

Ну как же коллеге не помочь.
Всегда поджаристо.