M-восраст человека , k- ( от 1 до 99)- любой число ,ввелся число m и k " мой восраст надо быть болшим (меньшим)" надо сделать программу

Var m, k: integer;
begin
write('Введите m: ');
read(m);
k:= random(99)+1;
if m>k then
writeln('Ваш возраст больше.')
else
writeln('Ваш возраст меньше.')
end.