Преобразовать в строке все строчные буквы в прописные

program aasdasd;
var s:string;
i:integer;
begin
write ('s:');readln(s);
for i:=1 to length(s)do
 begin
   if s[i]='Й' then s[i]='й';
   if s[i]='Ц' then s[i]='ц';
   if s[i]='У' then s[i]='у';
   if s[i]='К' then s[i]='к';
   if s[i]='Е' then s[i]='е';
   if s[i]='Н' then s[i]='н';
   if s[i]='Г' then s[i]='г';
   if s[i]='Ш' then s[i]='ш';
   if s[i]='З' then s[i]='з';
   if s[i]='Х' then s[i]='х';
   if s[i]='Ъ' then s[i]='ъ';
   if s[i]='Ф' then s[i]='ф';
   if s[i]='Ы' then s[i]='ы';
   if s[i]='В' then s[i]='в';
   if s[i]='А' then s[i]='а';
   if s[i]='П' then s[i]='п';
   if s[i]='Р' then s[i]='р';
   if s[i]='О' then s[i]='о';
   if s[i]='Л' then s[i]='л';
   if s[i]='Д' then s[i]='д';
   if s[i]='Ж' then s[i]='ж';
   if s[i]='Э' then s[i]='э';
   if s[i]='Я' then s[i]='я';
   if s[i]='Ч' then s[i]='ч';
   if s[i]='С' then s[i]='с';
   if s[i]='М' then s[i]='м';
   if s[i]='И' then s[i]='и';
   if s[i]='Т' then s[i]='т';
   if s[i]='Ь' then s[i]='ь';
   if s[i]='Б' then s[i]='б';
   if s[i]='Ю' then s[i]='ю';
   end;
write(s);
end.

program aasdasd;
uses crt;
var s:string;
    n,i:integer;
begin
writeln ('Введите строку;');
read(s);
n:=length(s);
for i:=1 to n do
if s[i] in ['a'..'z','а'..'я'] then s[i]:=chr(ord(s[i])-32)
else if s[i]='ё' then s[i]:='Ё';
write(s);
end.