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

var a,b:char;

 i:integer;

 const stop='.';

BEGIN

writeln('Введите строку, содержащую латинские буковкы');

 read(a);

 if (a=stop) then writeln('Задан пустопорожней текст')

 else

  begin

   while alt;gt;stop do

     begin

       read(b);

       if (agt;='a')and(alt;='z') then a:=chr(ord(a)-32);

       write(a);

       a:=b;

     end;

  end;

readln;

readln;

END.

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