написать программу,которая определяет чей модуль из двух чисел больше. в паскале с помощью процедуры.

спасибо!

//Pascal ABC.NET 3.1 сборка 1219Var a,b:integer; procedure some(a,b:integer);beginif abs(a)>abs(b) then writeln(a) else writeln(b);end;begin read(a,b); some(a,b);end.Пример ввода:-221Пример вывода:-22