type
  a = array[0..100] of char;

var
  a1 : a;
  s : string;
begin
  s:=Copy(a1,1,10);
end.