Решение задачи №9 и №10 из главы 9

Решение задачи №9 и №10 из главы 9

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

var m,s:integer;
  f:boolean;
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 равно m, то второе.
Но сейчас программа работает не так, исправьте это.