Kód:
  
var text:string;
      i:integer;
      pismeno:string;
begin
  text := 'Ukázkovej přííklad';
  for i:=0 to Length(text)-1 do
  Begin
    pismeno := copy(text,i,1);
   //tady dosadíš to písmeno do toho pole (nejak prevedes na char)
  end;
end;
Napsal bych ti to i s tím dosazením do pole.. Ale nejak se mi vykourilo z hlavy jak prevest string na char ...... Nevim programuju teď poslední dobou v C++ a tam bych to jednoduše přetipoval .. ale tady .......