Pascal. написать свой возраст и возраст друга, с клавиатуры, если твой больше вывести свой возраст иначе возраст друга

Program abc;
var a,b: integer;
begin
writeln ('Input your age: ');
readln(a);
writeln ('Input age of friend: ');
readln(b);
if (a > b) then writeln ('your age = ', a)
else writeln ('age of friend = ', b);
end.