Найти максимальное из трех неравных чисел и присвоить ему имя max

Я так понимаю, мах слово - выводить на экран вместе с числом.

var a, b, c:integer;

begin

readln (a, b, c) ;

if (a>b) and (a>c) then write ('max = ', a)

else

if (b>a) and (b>c) then write ('max = ', b)

else write ('max = ', c) ;

end.