Что не так в программе, она должна узнать какое число больше?

вот программа

program primer;

var a, b, с:integer;

Begin

readln (a, b, с) ;

if a>b then

writeln (a)

else

if b>c

writeln (b)

else

if c>a

writeln (c) ;

end.

У меня вот такая программа получилась:

var

a, b:integer;

begin

write ('Введите в одной строке два целых числа и нажмите ') ;

readln (a, b) ;

if a=b then writeln ('числа равны')

else

if a>b then writeln (a,' больше')

else writeln (b,' больше')

end.

If a>b then write (a)

нехорошо, так как может оказаться что с больше обоих, тогда вместо с печатается неверный ответ а

надо доп проверку

if a>b then

if a>c then

write (a)

else write (c)

else

if b>c then write (b)

else write (c)

*только разумеется тут надо поправить правильность написания кода))