сделайте программу на турбо паскале только не лёгкую плиз

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.

Эта программа заменит все заглавные латинские буквы на прописные.(лучше указывайте тип задания, которое вы хотите)