Дано натуральное число n.s1,s2..sn.вычислить есть ли среди данных символов точка и тире нужно написать программу, ))

//PascalABC.Net 3.2
begin
var s:=readstring('Введите строку: ');
write ('Наличие точки: ', '.' in s, '; наличие тире: ', '-' in s);
end.