[lmikle]

Код:

var
  Sh : Integer;
begin
  Sh := Ord('a') - Ord('A');
  ...
  s[i] := Chr(ord(s[i]) + Sh);
...