Замена всех маленьких английских букв в строке соответствующими большими — Pascal(Паскаль)

var s: string := 'Hello, World!';
begin
  var dist := Ord('a')-Ord('A');
  for var i:=1 to s.Length do
    if s[i] in ['a'..'z'] then
      s[i] := Chr(Ord(s[i])-dist);
  writeln(s);