Алгоритм в Turbo pascal

[brahmanchik]

Мне нужен алгоритм к этому коду, без него никак, прошу помочь в этом вопросе
var i,res1,res2:integer;
s:string;
begin
read(s);
if (s[1]<>' ') and (s[2]=' ') then res2:=res2+1;
if (s[length(s)-1]<>' ') and (s[length(s)-2]=' ') then res2:=res2+1;
if (s[length(s)-1]='о') and (s[length(s)-2]<>' ') then res1:=res1+1;
if length(s)>5 then
for i:=3 to length(s)-3 do
if (s[i-1]=' ') and (s[i+1]=' ') then res2:=res2+1;
if length(s)>6 then
for i:=2 to length(s)-3 do
if (s[i-1]<>' ') and (s[i+1]=' ') and (s[i]='о') then res1:=res1+1;
writeln('местоимений-',res2,' наречий-',res1);
end.
А вот собствено и вопрос по которому писался код - Дана фраза, в которой слова разделены одним пробелом, а сама фраза заканчивается точкой. Требуется: определить, сколько в ней наречий и однобуквенных местоимений.

[Luuzuk]

Алгоритм? Если вы имеете в виду блок-схемы, то вам сюда