Урок 9 Задача 12

Урок 9 Задача 12:

Есть программа:

var m,s:integer;
begin
  writeln('Vvedite chislo M');
  readln(m);
  s:=1;
  if (s = 1) then
    writeln('soobchenie 1');
  if (s = m) then
    writeln('soobchenie 2');
end;

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

var m,s:integer;
begin
  writeln('Vvedite chislo M');
  readln(m);
  s:=1;
  if (s = 1) then
    writeln('soobchenie 1')    //если условие верно, выводится первое сообщение, независимо от значения m
  else if (s = m) then         //в ложную ветку попадает s<>1 и далее проверяется на условие s = m
      writeln('soobchenie 2'); //второе сообщение выводится когда одновременно s<>1 и s = m
  readln ();
end.

Вывод в консоли:

Vvedite chislo M
1
soobchenie 1