Grandeza de 3 números, exercício pascal

Program demonstracao ;
var a,b,c :real;
Begin

writeln('Insira o valor a');
read(a);
writeln('Insira o valor b');
read(b);
writeln('Insira o valor c');
read(c);

if (a=b) then
             begin
                    if(b=c)then
                    writeln(' A = B = C')

                    else
                    if(b>c)then
                    writeln('A = B > C')
                    else
                    writeln('C > A = B');   // (A = B < C) (C > A = B);
             end
else
if (b=c) then
             begin
                    if(c=a)then
                    writeln(' A = B = C')

                    else
                    if(b>a)then
                    writeln('A > B = C')
                    else
                    writeln('B = C > A');   // (A < B = C) (B = C < A)
             end
else
if (a=c) then
             begin
                    if(c=b)then
                    writeln(' A = B = C')

                    else
                    if(b>a)then
                    writeln('B > A = C')
                    else
                    writeln('A = C > B');   // (A < B = C) (B = C < A)
             end
else


//funcionando \/
if (a>b) then
             begin
                    if(b>c)then
                    writeln(' A > B > C')

                    else

                    writeln('C > A > B'); // (A > B < C)

             end
else
writeln('B > C > A');




End.


//O programa tem como objetivo demonstrar em ordem as grandezas de 3 números, tendo como foco qual deles é maior ou não.