Написать программу в паскаль для решения : найти модуль числа a при условии, что само число a вводится с клавиатуры

Var a:integer;
begin
write('a = ');
readln(a);
a:=abs(a);
writeln('a = ',a);
end.

Пример:
a = -5
a = 5

Var a:integer;beginreadln(a);Abs(a);Writeln(a);end.