лабораторная работа / 3-2 [2] Поменять регистр букв в строке / регистр

program prog;

label

1;

const

Up = 'QWERTYUIOPASDFGHJKLZXCVBNM';

Low= 'qwertyuiopasdfghjklzxcvbnm';

var

str: string;

i,j: byte;

elem: char;

begin

WriteLn ('Vvedite stroku');

ReadLn (str);

for i:=1 to length(str) do

begin

for j:=1 to length(Up) do

if str[i] = Up[j] then

begin

str[i] := Low[j];

goto 1;

end;

for j:=1 to length(Low) do

if str[i] = Low[j] then str[i] := Up[j];

1:

end;

WriteLn(str);

ReadLn;

end.