Процедура, которая работает с введенным числом - PascalABC.NET

Формулировка задачи:

Дали задание : напишите процедуру, которая получает целое число и выводит его на экран, при этом после четных цифр она дописывает после пробела "/2", после нечетных - "/1", а перед отрицательными ставит набор символов "-->". На уроке разбирали более простые задачи с функциями, а здесь я даже не знаю как оформить условный оператор и где. В теле процедуры или основной программы?

 procedure even (var n : integer);
 begin 
  if (n mod 2 = 0) and (n>0) then
  writeln (n,'/2');
  end;
  begin
   if (n mod 2 = 1) and (n>0) then
   writeln (n,'/1');
   if n < 0 then 
   writeln ('-->',n);
   var n : integer;
    begin
  even (3);
  writeln ('введите число : ');
  readln (n);
   end;
   end.

Попробовала вот так, но это вообще неверно. Помогите, пожалуйста.

Решение задачи: «Процедура, которая работает с введенным числом»

Листинг программы

procedure even(n: integer);
begin
  if n < 0 then write('-->');
  if (n mod 2 = 0) then
    writeln(n, '/2')
  else if (n mod 2 <> 0) then
    writeln(n, '/1');
end;
 
var n: integer;
begin
  writeln('введите число : ');
  readln(n);
  even(n);
end.

Объяснение кода листинга программы

Введенное число сохраняется в переменной n типа integer.
Выводится приглашение для ввода числа.
Число считывается с помощью функции readln().
Вызывается процедура even(), в которую передается значение переменной n.
В процедуре even() выполняется проверка на отрицательное число.
Если число отрицательное, то выводится сообщение -->.
Выполняется проверка на четность числа.
Если число четное, то выводится его половина.
Если число нечетное, то выводится единица.
Процедура even() завершается.
Программа завершается.