Probleme turbo pascal

Bonjour,

je n'arrive pas a différencier l'équation impossible et l'équation indéterminée.
est ce que qqun sait m'aider ds mon programme merci.

program systeme;
uses wincrt;
{Résolution de systèmes linéaires par la
méthode du pivot partie de Gauss;
on forme une matrice triangulaire supérieure }
type
matrice = array[1..3,1..3] of real;
vecteur = array[1..3] of real;
var
X,Y : vecteur;
A : matrice;
x1,x2:real;
procedure afficheSyst(A : matrice; Y : vecteur);
var
i,j : integer;
begin
for i:=1 to 3 do
begin
write(A[i,1]:0:0,' x',1);
for j:=2 to 3 do write(' + ',A[i,j]:0:0,' x',j);
writeln(' = ',Y[i]:0:0);
end;
end; { afficheSys }
procedure afficheSol(X : vecteur);
var
i : integer;
begin
for i:=1 to 3 do writeln('x',i,' = ', x[i]:0:3);
end; { afficheSol }
procedure lireVecteur(var V : vecteur);
var
i : integer;
begin
for i:=1 to 3 do
begin
write('Coordonnée ',i,' : ');
readln(V[i]);
end;
end; { lireVecteur }
procedure lireMatrice(var M : matrice);
var
i,j : integer;
begin
for i:=1 to 3 do
begin
writeln('Ligne ',i,' :');
for j:=1 to 3 do readln(M[i,j]);
end;
end; { lireMatrice }
procedure resTriangleSup(A: matrice; Y : vecteur; var X : vecteur);
var
i,j : integer;
begin
for i:=3 downto 1 do
begin
for j:=i+1 to 3 do
begin
Y[i]:=Y[i]-A[i,j]*X[j];
end;
X[i]:=Y[i]/A[i,i];
end;
end; { resTriangleSup }
procedure gaussPartiel(A : matrice; Y : vecteur; var X : vecteur);
const
presqueZero = 1e-8;
var
i,j,k,imax : integer;
max,temp, t1, t2, t3 : real;
SI : boolean;
begin
SI := false;
for i := 1 to 2 do
begin
for j := i+1 to 3 do
begin
t1 := A[i,1]/A[j,1];
t2 := A[i,2]/A[j,2];
t3 := A[i,3]/A[j,3];

if (t1 = t2) and (t2= t3) then
begin
if (Y[i] <> Y[j]*t1) then
begin
writeln ('Système impossible');
SI := true;
end;
end;
end;
end;
if (SI = false) then
begin
for k:=1 to 3 do
begin
{recherche du pivot dans la colonne k}
imax:=k; max:=abs(A[k,k]);
for i:=k+1 to 3 do
if abs(A[i,k])>max then
begin
imax:=i;
max:=abs(A[i,k]);
end;
if max<presquezero then
begin
writeln('équation indéterminée.');
halt(1);
end;
{échange de la ligne k et de la ligne imax}
for j:=k to 3 do
begin
temp:=A[k,j];
A[k,j]:=A[imax,j];
A[imax,j]:=temp;
end;
{ne pas oublier le second membre}
temp:=Y[k];
Y[k]:=Y[imax];
Y[imax]:=temp;
{élimination dans la colonne k des termes sous la ligne k}
for i:=k+1 to 3 do
begin
temp:=A[i,k]/A[k,k];
for j:=k to 3 do A[i,j]:=A[i,j]-A[k,j]*temp;
Y[i]:=Y[i]-Y[k]*temp;
end;
end;
end;
resTriangleSup(A,Y,X);
end; { gausspartiel }
begin
writeln('Entrer la matrice A.');
lireMatrice(A);
writeln;
writeln('Entrer le vecteur Y');
lireVecteur(Y);
writeln;
writeln('Voici le système avec les inconnues x1, x2, x3');
afficheSyst(A,Y);
gausspartiel(A,Y,X);
writeln;
afficheSol(X);
end.