Урок №9 Задание 12

Урок №9 Задание 12

Есть программа. При этом известно, что если s равно 1, то на экран должно вывестись только первое сообщение (а второе выводиться не должно), а если s не равно 1, но равно m, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.

program Pr9_12;

var m,s:integer;
begin
  writeln('Введите число: ');
  readln(m);
  s:=2;
  if (s = 1) then writeln('Сообщение №1')
  else if (s<>1) and (s = m) then writeln('Сообщение №2');

readln();
end.                    

Консоль:

Введите число:
2
Сообщение №2