Помогите решить задачи по информатике!
1.Дана символьная строка. Определить, есть ли в строке слово из трех букв.
2.Дана строка. Определить, есть ли в ней буква s.
Других данных нет.
Только пожалуйста не пишите решай сама!)

var s:string;i,k:integer;b:boolean;beginreadln(s);for i:=1 to length(s) doif (s[i]<>' ') then begin inc(k);  if k=3 then b:=true; endelse k:=0;writeln(b);end.var i:integer;s:string;b:boolean;s1:char;beginreadln(s);readln(s1);for i:=1 to length(s) doif s[i]=s1 then b:=true;writeln(b);end.