Pascal. Задача 5-6

var
  sin, sout :string;
  i, dif : integer;
begin
  write('Введите текст: ');
  read(sin);
  sout := '';
  dif := Ord('a') - Ord('A');
  for i := 1 to Length(sin) do
    if sin[i] in ['A'..'Z'] then
      sout := sout + Chr(Ord(sin[i]) + dif)
     else sout := sout + sin[i];
  writeln(sout);
end.