Переписать элементы массива в другой массив

UNIT SHIFR;
interface
var STR:STRING;
key: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) do metmorf[i]:=(ord(mass[i]));// переписываем из одного массива в другой знаки превращенные в код здесь то и ошибка
randomize;
key:=Random(1,70);//генерируем ключ
for var i:=0 to Length(metmorf) do
begin
inc(key);//увеличиваем на один
metmorf[i]:=metmorf[i]+key;//добавляем к каждому элементу ключ который с кажжой итерацией увеличивается
end;
end;
procedure  genkod();
begin
write('DANNO  ',metmorf);//
end;
end.

uses Crt,SHIFR;
begin
SHIFR.readize;
SHIFR.metamorf;
SHIFR.genkod;
END.

for var i:=0 to Length(mass) - 1 do