Если f> m то вывести на экран сообщение f больше иначе m больше

Program gt;
var f,m:real;
begin
read(f,m);
if(f>m)then writeln('f больше или по другому ',f,' больше');
if(f<m)then writeln('m больше или по другому ',m,' больше');
end.