Найти максимальное из трех неравных чисел и присвоить ему имя 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.