Записать строку в массив символов

var arr := ReadLnString('Пользователь, типа введи чего-нибудь! ').ToCharArray();

UNIT SHIFR;
interface
var STR:STRING;
key,ini:integer;
mass:array of char;
metmorf:array of integer;
procedure readize();
procedure  metamorf();
procedure  genkod();
implementation
procedure readize();
begin
read(str);//ВВОДИМ СТРОКУ
mass:=str.ToCharArray;//ЗАПИСЫВАЕМ В МАССИВ СИМВОЛЫ
end;
procedure  metamorf();
begin
SetLength(METMORF,length(mass));//уравниваем количество элементов массива
for var i:=0 to (Length(mass)-1) do metmorf[i]:=(ord(mass[i]));// переписываем из одного массива в другой знаки превращенные в код здесь то и ошибка
randomize;
key:=Random(1,70);//генерируем ключ
for var i:=0 to (Length(metmorf)-1) do
begin
inc(key);//увеличиваем на один
metmorf[i]:=metmorf[i]+key;//добавляем к каждому элементу ключ который с кажжой итерацией увеличивается
end;
end;
procedure  genkod();
begin
write('DANNO  ',metmorf);//
end;
end.