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

//Pascal ABC.NET 3.1 сборка 1219

Var
 a,b:integer;

 procedure some(a,b:integer);
begin
if abs(a)>abs(b) then writeln(a) else writeln(b);
end;

begin
 read(a,b);
 some(a,b);
end.

Пример ввода:
-22
1
Пример вывода:
-22