Многомерные массивы

[DDP]

Всем привет.
Подскажити как записать буквы слова в многомерный массив.
Допистим есть слово: slo:='foka';
Как его элементы перенести в матрицу 2x2 ?

Алгоритм пожалуйста объясните.

[Stepler]

type pmas = ^char;
procedure ps(s :string;mas :pmas);
var i :integer;
begin
 for i:= 1 to length(s) do
 begin
  mas^ := s[i];
  inc(mas);
 end;
end;

s твоая строка, mas указатель на char...
в s передаш свое слово, в mas указатель вот пример вызова
ps('123456',@array); где array название твоего массива...
также размер массива m*n должен быть больше или равно размеру строки...
заполнения происходит последовательно
например
[1][1],[1][2],[2][1],[2][2]...