{-------------------------------------------} 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;