Pascal/Turbo Pascal - Ayuda con programa

disculpen podrian desirme la forma de haser elsigiente programa que compara dos numeros pero de manera de IF anidado

program lord_Byte;
var
a,b,c:integer;
begin
writeln(\'introduce el primer numero a comparar\');
readln(a);
writeln(\'introduce otro numero\');
readln(b);
if a = b then
begin
writeln(\'los numeros introducidos son iguales(=) \');
end
else
begin
if
a < b then
begin
writeln(a ,\'es menor (>) que \',b);
end
else
writeln(a,\' es mayor (<) que \',b);
end;
end.

if A > B then writeln(A ,' > ', B)
else if A < B then writeln(A ,' < ', B) else writeln(A , ' = ', B);

La cuestión es simple si A no es mayor ni menor a B entonces son iguales, no necesitas preguntar por la igualdad..., simple lógica :).