Дано целое число N. Вывести сообщения типа «N-четное отрицательное», «N- четное положительное», «N=О», «N-нечетное отрицательное», «N-нечетное положительное» в зависимости от его (N) вида — Delphi(Делфи)

procedure TForm1.Button1Click(Sender: TObject);
var
  n: integer;
begin
  n := strtointdef(edit1.Text, 1);
  if n = 0 then
  begin
    showmessage('Число n =0');
    exit;
  end;

  if (n mod 2) = 0 then
  begin
    if n < 0 then
      showmessage('Число n чётное отрицательное')
    else
      showmessage('Число n чётное положительное')
  end
  else if n < 0 then
    showmessage('Число n нечётное отрицательное')
  else
    showmessage('Число n чётное положительное')
end;