Egy hibalehetőség a stringek karakterenkénti kezelésekor

program Nagybetu_Hibas;
uses Crt;
var s, nagy: string;
    i: byte;
begin
  ClrScr;
  ReadLn(s);
  for i := 1 to Length(s) do
    nagy[i] := Upcase(s[i]);   {A nagy string hossza 0, és nem változik}
  WriteLn(nagy);
  ReadLn
end.