Pascal/Turbo Pascal - Ecuación diofantica

Hola estimados!!!
Tengo que realizar un programa que resuelva ecuaciones diofánticas (eso lo logre), pero no me sale como hacer que me imprima el cartel de que no hay soluciones... Si lo coloco dentro del lazo for me dice en cada valor de i que no hay solución. Yo quiero que me lo diga una sola vez en el caso de que no exista ninguna solución. Muchas Gracias.

program diofantica;


var a,b,c,x,i,y:integer;

begin
writeln; readln(a);
writeln; readln(b);
writeln; readln(c);

x:= c div a;
for i:=1 to x do
begin
y:=(c-a*i) div b;
if (a*i+b*y=c) then writeln('(',i:2,',',y:2,')')
else
end;
writeln; writeln('**Fin**')
end.

Coge una variable integer, inicializala en 0 antes del for...cuando imprimas que hay solucion cambia ese 0 por un 1..

cuando salgas del lazo for haz un condicional..si la variable sigue siendo 0 que imprima que no hay soluciones..