Дан рост двух мальчиков. нужно определить на сколько первый выше второго с программы pascal.

Var h1, h2:integer;

begin
readln(h1);
readln(h2);
if (h1>h2) then writeln('Первый выше второго на ', h1-h2);
if (h1<h2) then writeln('Первый ниже второго на ', h2-h1);
if (h1=h2) then writeln('У обоих мальчиков одинаковый рост');
end.