Диофантово уравнение расширенным методом Евклида

Var x,y: Integer; {исходные данные}
p,q,r,s,w,m,T,n: Integer; {введённые вспомогательные переменные}
k: Integer; {для изменения значений p,q,r,s}
d: Integer; {значение наибольшего общего делителя}
g: real;
Begin
writeln('vvedite dva chisla');
Read(x,y);
writeln('vvedite T');
read(T);
 
if x mod y = 0 then 
if T mod y=0
then begin
g:=T/y;
writeln('Вырожденный случай ');
writeln(x,' делится на ', y);
writeln(T,'=',0,'*',x,'*+',g,'*',y);
end;
if x mod y = 0 then 
if T mod y<>0 then 
writeln('Вырожденный случай решений нет ');
 
if y mod x = 0 then begin
if T mod x=0
then begin
g:=T/x;
writeln('Вырожденный случай ');
writeln(x,' делится на ', y);
writeln(T,'=',g,'*',x,'*+',0,'*',y);
end;
if x mod y = 0 then 
if T mod x<>0 then 
writeln('Вырожденный случай решений нет ');
end;
 
begin
 
if y mod x<>0 then 
if x mod y<>0 
then begin
 
m:=x; n:=y; p:=1; q:=0; r:=0; s:=1;
Repeat
If m>n Then Begin
k:=m Div n; m:=m Mod n;
p:=p-k*r; q:=q-k*s
End
Else Begin
k:=n Div m; n:=n Mod m; r:=r-k*p; s:=s-k*q End;
Until (m=0) Or (n=0);
If m=0 Then Begin
d:=n; q:=r; w:=s;
End
Else Begin d:=m; q:=p; w:=q; End;
Writeln(d,'=',q,'*',x,'+',w,'*',y);
writeln(T,'=',q*T,'*',x,'*+',w*T,'*',y);
End;
end;
end.
 
 
 
Есть еще один вариант,но как оказалось,он тоже не для всего,ввожу 6,12,3 получаю нет решений.
var
a,b,T,
d,x,y:Longint;
g:real;
{расширенный алгоритм Евклида}
procedure Eq(a,b:longint; var d,x,y:longint);
var
x1,y1,x2,y2,q,r:Longint;
begin
if b=0 then
begin
d:=a;x:=1;y:=0
end
else
begin
x1:=0;x2:=1;y1:=1;y2:=0;
while b>0 do
begin
q:=a div b;r:=a-q*b;x:=x2-q*x1;y:=y2-q*y1;
a:=b;b:=r;x2:=x1;x1:=x;y2:=y1;y1:=y
end;
d:=a;x:=x2;y:=y2
end;
end;
{основная программа}
begin
writeln('vvedite dva chisla');
Read(a,b);
writeln('vvedite T');
read(T);
if a mod b = 0 then 
if T mod b=0
then begin
g:=T/b;
writeln('Вырожденный случай ');
writeln(a,' делится на ', b);
writeln(T,'=',0,'*',a,'*+',g,'*',b);
end;
if a mod b = 0 then 
if T mod b<>0 then 
writeln('Вырожденный случай решений нет ');
 
if b mod a = 0 then begin
if T mod a=0
then begin
g:=T/a;
writeln('Вырожденный случай ');
writeln(b,' делится на ', a);
writeln(T,'=',g,'*',a,'*+',0,'*',b);
end;
if b mod a= 0 then 
if T mod a<>0 then 
writeln('Вырожденный случай решений нет ');
end;
if a mod b<>0 then 
if b mod a<>0 
then begin
Eq(a,b,d,x,y);
writeln('Расширенный алгоритм Евклида(d(НОД(a,b))=x*a+y*b):');
writeln('d=',d,' x=',x,' y=',y);
 
if d=1 then begin 
Writeln(d,'=',a,'*',x,'+',b,'*',y);
writeln(T,'=',a,'*',x*T,'*+',b,'*',y*T);
end;
if d<>1 then begin 
Writeln(d,'=',a,'*',x,'+',b,'*',y);
Writeln(1,'=',a/d,'*',x,'+',b/d,'*',y);
writeln(T,'=',a/d,'*',x*T,'*+',b/d,'*',y*T);
end;
end;
end.

  Read(a, b);
  writeln('vvedite T');
  Read(T);
  if a mod b = 0 then
    if T mod b = 0 then
    begin
      g := T / b;
      writeln('Вырожденный случай ');
      writeln(a, ' делится на ', b);
      writeln(T, '=', 0, '*', a, '*+', g, '*', b);
    end;
  if a mod b = 0 then
    if T mod b <> 0 then
      writeln('Вырожденный случай решений нет ');

{решение диофантового a*x+b*y=c уравнения в общем виде}
program Pas_078;
 
  {Extended Euclidean algorithm}
  {
   на входе:
   a, b
   на выходе:
   НОД(a, b) = GCD(a, b)
   x, y - числа, такие, что a*x+b*y=GCD(a, b)
  }
  function ExtendedEuclideanAlgorithm(a, b: integer; var x, y: integer): integer;
  var
    x1, y1, d: integer;
  begin
    if (a = 0) then
    begin
      x := 0;
      y := 1;
      ExtendedEuclideanAlgorithm := b;
      Exit;
    end;
    d := ExtendedEuclideanAlgorithm(b mod a, a, x1, y1);
    x := y1 - (b div a) * x1;
    y := x1;
    ExtendedEuclideanAlgorithm := d;
  end;
 
 
var
  a, b, c: integer;
  Xg, Yg, g: integer;
  X0, Y0:  integer;
begin
  a := 10;
  b := 11;
  c := 99;
  {рассмотрим некоторые вырожденные случаи, доступные на данном этапе}
  {
   1. a=0, b=0, c=0 - бесконечное множество решений с произвольными x и y
   2. a=0, b=0, c<>0 - нет ни одного решения
   }
  if (a = 0) and (b = 0) then
  begin
    if (c = 0) then
      writeln('Бесконечное множество решений с любыми значениями x и y.')
    else
      writeln('Нет ни одного решения.');
    Exit;
  end;
  {нахождение НОД(a,b) и дополнительных переменных}
  g := ExtendedEuclideanAlgorithm(a, b, Xg, Yg);
  {на основе новых данных рассмотрим ещё один вырожденный случай
  3. c не делится на GCD(a, b) - нет ни одного решения
  }
  if (c mod g) <> 0 then
  begin
    writeln('Нет ни одного решения.');
    Exit;
  end;
  {нахождение одного решения}
  X0 := Xg * (c div g);
  Y0 := Yg * (c div g);
  {нахождение решения в общем виде}
  writeln('Решение диофантова уравнения ', a, 'x+', b, 'y=', c, ' в общем виде:');
  writeln('x=', X0, '+', (b div g), 'k');
  writeln('y=', Y0, '+', (a div g), 'k');
end.