Что выведет на экран данный код?, Посмотрите для разных компиляторов Опции

[TarasBer]

var
  S: string;
  W,V: WideString;

begin
  S := 'OLOLO';
  S := '' + Copy(S, 100500, 1);
  WriteLn(S);                     //

  W := 'LOOL';
  V := '' + Copy(W, 100500, 1);
  W := '' + Copy(W, 100500, 1);
  WriteLn(V);                     //
  WriteLn(W);                     //

  W := 'LOOL';
  W := Copy(W, 100500, 1);
  WriteLn(W);                     //

  WriteLn('that''s all');
end.

[IUnknown]

Если внести некоторые изменения по типу 100500 заменить 10050,а то не влезает в размер константы, и заменить WideString; на String, nо он уже банально делает отступы на несколько строк и печатает that all,но запускалось через DosBox.

Не подтверждается. Запускалось и через DosBox, и просто из TP, печатается 4 пустых строки + "thats all". D2009 ведет себя аналогично. WinXP SP3 + Win7 32bit + Win7 64bit