Karakterlánc típus - példaprogram

program Nagybetu;
uses Crt;
var s: string;
    i: byte;
begin
  ClrScr;
  ReadLn(s);
  for i := 1 to Length(s) do
    s[i] := Upcase(s[i]);
  WriteLn(s);
  ReadLn
end.