Индексы в строке

[Шура]

Общими усилиями я почти сделал задачу, спасибо всем кто помог с кодами, получился у меня массив 6х6, слово, веденное в эдит ставится на первое место
столАБ
ВГДЕЖЗ
ИКМНПР
УФХЦЧШ
ЩЬЫЭЮЯ
УФХЦШЩ

Но вот осталось только присвоить букве с - в, т-г, о-д, л-е. Получается, что каждой букве слова из эдита соответствует буква, стоящая шестой от ее. Но что-то у меня ничто не получается и загвоздка в том, что
если слово длинное, состоит минимум из 31 буквы, то буквам слова, находящимся в самом нижнем ряду присваиваем буквы соответственно в самом верхнем ряду.

[Stilet]

Чет типа такого?:

var k,i:integer;s:string;
begin
s:= Memo1.Lines.Text;
i:=1; while i<=(length(Memo1.Lines.Text)-6) do begin
 if IsCharAlphaNumeric(s[i]) then s[i]:=s[i+6];
 inc(i);
end;
for k:=1 to 6 do begin
 if IsCharAlphaNumeric(s[i]) then s[i]:=s[k];
 inc(i);
end;
Memo1.Lines.Text:=s;
end;

веденное в эдит

А причем тут Эдит? То что ты показываеш в Эдит не введеш.

[Шура]

Не, изначально слово введено в эдит, берем его оттуда, ставим в нчало массива, исключая буквы слова из эдит а затем присваиваем как я написал. А этот код я не знаю

[Stilet]

А этот код я не знаю

Это ответ на твой вопрос. Если очень хоцца можно Мемо заменить на Эдит.