Program PascalGuru;

var f,t:text;
S :string;

{-------------------------------------------}
function UpNewStr(s:string):string; {функция преобразования строки}
var i,j:integer;
litera:set of char;
begin
litera:=['a'..'z'];
for i:=1 to length(s) do
if s[i]='.' then
for j:=i+1 to length(s) do
if s[j] in litera then begin s[j]:=UpCase(s[j]); break; end;
UpNewStr:=s;
end;
{-------------------------------------------}

{******************САМА ПРОГРАММА****************************}
begin
assign(f,'in.txt'); reset(f); {подключаем файл для чтения}
assign(t,'out.txt'); rewrite(t); {подключаем файл для записи}

while not eof(f) do {пока не конец файла}
begin
readln(f,S); {считываем очередную строку с файла}
writeln(t,UpNewStr(S) ) {запись преобразованной строки в новый файл}
end;

writeln('Fail uspeshno zapisan...');

close(f); {закрываем файл}
close(t); {закрываем файл}

readln;
end.