Pascal 3 números / o maior deles

[login065 0]

Boa noite pessoal!

Já li alguns tópicos daqui, e empaquei nessa parte

já fiz e refiz essa bagaça mas não consigo ver a onde estou errando

o exercicio diz: 1. Entrar via teclado com três valores distintos. Exibir o maior deles.

fiz essa parte aqui:

Program exercicio012 ;

var

a: real;

b: real;

c: real;

Begin

write('Informe o primeiro:');

Read(A);

Write(' Informe o segundo:');

read(b );

Write('Informe o terceiro:');

read©;

if (A>b ) then

begin

Write('O maior número é o ',A);

end

else

write('o maior número é o ',b );

begin

if (B>C) then

Begin

Write('o maior número é o',b );

end

else

Write('o maior número é o',C);

begin

if (A>C) then

Begin

Write('o maior número é o',A);

end

else

Write('o maior número é o',C);

end;

Se vcs puderem me dizer onde estou errando, agradeço bastante

desde já obrigado!!