var a,b:char;
i:integer;
const stop='.';
BEGIN
writeln('Введите строку, содержащую латинские буквы');
read(a);
if (a=stop) then writeln('Задан пустой текст')
else
begin
while a<>stop do
begin
read(b);
if (a>='a')and(a<='z') then a:=chr(ord(a)-32);
write(a);
a:=b;
end;
end;
readln;
readln;
END.
Эта программа заменит все заглавные латинские буквы на прописные.(лучше указывайте тип задания, которое вы хотите)
