Перемещение алфавита Паскаль

[0479]

Подскажите пожалуйста если требуется скопировать алфавит из одного массива в другой как это можно сделать.Код приведён ниже.Почему то выдаётся не ссответствие типов.Объясните где я ошибся.

var d,i,km,mk:integer;
alh1:array ['A'..'Z','a'..'z'] of char;
alh2:array [0..53] of char;
newtext:array [0..250] of char;
buf:char;
begin
while i<52 do
begin
alh2[i]:=alh1[i];
i:=i+1;
end;

[_Engine_]

alh1 - двумерный массив
alh2 - одномерный
Разницу ощущаете?

[0479]

Ага ощущаю но дело всё равно не в этом ибо если сделать одноменым alh1 это всё равно не много даёт

[Serge_Bliznykov]

код бредовый..
а ругается, потому что индексами массива alh1 являюся СИМВОЛЫ
вот, типа так можно:

alh2[i]:=alh1[chr(i+ord('A'))];

только от этого смысла в этом коде не прибавится

[0479]

Спасибо вопрос отпал.Тема закрыта.