Здравствуйте, Хощенко Артём Владимирович!

Насколько я помню в паскале нет функции которая переводит строчный буквы в прописные и наоборот, поэтому это можно зделать следующим образом, чтобы преобразовать а -> А, достаточно из номера символа вычесть 32, наоборот прибавить 32. оба варианта в приложении. Для сравнения.
В задаче использовано множество для проверки на коррекные символы (буквы).

Корень квадратный можно извлечь с помощью функции SQRT(x);

Удачи.

Приложение:
uses crt;
var s:string;
i:integer;
begin
clrscr;
writeln('Введите строку.');
readln(s);
writeln;
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then
begin
s[i]:=chr(ord(s[i])-32);
end;
write(s);
readln;
end.



uses crt;
var s:string;
i:integer;
begin
clrscr;
writeln('Введите строку.');
readln(s);
writeln;
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then
begin
s[i]:=chr(ord(s[i])+32);
end;
write(s);
readln;
end.

Здравствуйте, Хощенко Артём Владимирович!
Программа очень простая. Без комментариев.

Приложение:
program Pascal_160089;
var
str:String;
i:Integer;
begin
WriteLn('Enter string:');
ReadLn(str);
for i := 1 to Length(str) do
str[i]:=UpCase(str[i]); { Upcase() - приводит к верхнему регистру }
WriteLn(str);
ReadLn;
end.