По поводу разбивки на массивы помоему так:
var
arr:array[0..10]of string;
i,c,j:integer;
ch:char;
str:string;
begin
c:=length(str) div 200;
for i:= 0 to c-1 do
arr[i]:=copy(str,i*200,i*200+199);
end.
По второму вопросу-лучше всего сделать как в моторе-
нажал одну клавишу-начал выделение, передвинул курсор джойстиком-выделил символ, нажал другую кнопку-скопировал текст в буфер.