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

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

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, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.

<pre class="brush: php">program project10;
{
Программа работает неправильно. Надо это исправить.
}
var
  m,s:integer;

begin
    writeln('Vvedite chislo m:');
    readln(m);
    s:=1;
    if (s=1) then writeln('Soobshenie 1')
    else if (s=m) then writeln('Soobshenie 2');

end. </pre>

Консоль:

Vvedite chislo m:
4
5

Soobshenie 1