program PascalGuru;
 
var f:text;        {описание переменных}
    s,sub:string;
    p,i:integer;
 
begin
assign(f,'text.txt'); reset(f); {Подключаем файл для чтения}
readln(f,s);    {считываем текстовую строку с файла}
 
writeln('Ishodnyi tekst: ',s); {Выводим исходный текст на экран}
writeln;
writeln('***Preobrazovannyi:');
 
 
p:=pos(';',s);  {позиция точки запятой}
while (p>0) do  {пока есть точка запятой}
      begin
       sub:=copy(s,1,p-1); {копируем в строку sub текущую подстроку}
       delete(s,1,p);  {удаляем из строки текущую подстроку }
       if sub[1]=' ' then delete(sub,1,1); {если первый = пробел - то его удаляем}
       sub[1]:=UpCase(sub[1]); {делаем первую букву ЗАГЛАВНОЙ}
 
       writeln(sub); {выводим текущую подстроку на экран}
       p:=pos(';',s); {позиция точки запятой}
      end;
 
close(f); {закрываем файл}
readln;
end.