{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
var
  somearray: array[0..255] of char;
  somestring: String[255];
  i: byte;
begin
  for i:= 0 to 255 do
    somearray[i] := chr(ord('A') + i mod 26);
  move(somearray[0], somestring[0], 256); (* Царь в треде *)
  for i:=0 to 255 do
    WriteLn('somestring[', i:3, '] = ', somestring[i])
end.