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

Var s:string;
i,k:integer;
b:boolean;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]<>' ') then begin inc(k);
  if k=3 then b:=true; end
else k:=0;
writeln(b);
end.

var i:integer;
s:string;
b:boolean;
s1:char;
begin
readln(s);
readln(s1);
for i:=1 to length(s) do
if s[i]=s1 then b:=true;
writeln(b);
end.