помогите исправит программу паскаль

Question

Вывести исходный текст, заменив в нем строчные буквы, следующие за точкой и одним пробелом на прописные буквы. 
 
вот мое решение 
 
var st:string; 
k,i,kol: integer; 
begin 
writeln('vvedite tekst'); readln(st); 
k:=length(st); 
for i:= 1 to k do 
begin 
if st= '.' then begin 
while st= ' ' do 
if ('а'<= st[i+1]) and (st[i+1]>='я') then st:= UpCase(st); 
end; end; 
writeln(st); 
end. 
 
где именно ошибка? Она выводит исходный текст без изменений

Антон · Accepted Answer

Должно быть где-то так: 
var 
 st : string; 
 k,i,kol: integer; 
begin 
 writeln('vvedite tekst'); readln(st); 
 k:=length(st); 
 for i:= 1 to k do 
 begin 
 if (st = '.') and (st[i+1] = ' ') then 
 begin 
 if ('a' <= st[i+2]) and (st[i+2] <= 'z') then st[i+2]:= UpCase(st[i+2]); 
 end; 
 end; 
 writeln(st); 
end.

Люба · Answer

код на pastebin.com, сюда - ссылку.