Каждый символ слова разместить в отдельной ячейке двумерного массива

Uses crt;
const
  Max = 20;
var
  Matr: array[1..Max, 1..Max] of Char;
  i, j, k, n, m: integer;
begin
clrscr;
randomize;
  repeat
    write('Vvedite kol-vo strok: ');
    readln(m);
  until (m in [1..Max]);
  repeat
    write('Vvedite kol-vo stolbcov : ');
    readln(n);
  until (m in [1..Max]);
  writeln('Vvedite elementi massiva ', m, 'x', n, ': ');
    for i:=1 to m do
    for j:=1 to n do
    begin
      write('Matr[', i, ', ', j, ']: ');
      readln(Matr[i,j]);
    end;
  writeln('Massiv: ');
  for i:=1 to m do
  begin
    for j:=1 to n do
      write(Matr[i, j]:4);
    writeln;
  end;
  write('Vvedite nomer stroki: ');
  readln(k);
  writeln('Result ', k, ': ');
  for j:=1 to n do
    write(Matr[k, j]:4);
    readln;
end.

Uses crt;
const
  Max = 15;{строка максимум из 255 символов, принимаем 225}
var s:string;
    Matr: array[1..Max, 1..Max] of Char;
    mm:set of byte;
    m,n,i,j,k,row,col:byte;
begin
clrscr;
randomize;
repeat
 write('Vvedite kol-vo strok: ');
 readln(m);
until (m in [1..Max]);
repeat
 write('Vvedite kol-vo stolbcov : ');
 readln(n);
until (n in [1..Max]);
writeln('Vvedite stroku iz ',m,'x',n,' simvolow');
readln(s);
if length(s)>m*n then {если ввели больше, обрежем}
s:=copy(s,1,m*n)
else if length(s)<m*n then{если меньше, добавим пробелы}
while length(s)<m*n do s:=s+' ';
mm:=[];{пустое множество номеров ячеек}
for i:=1 to m*n do
 begin
  repeat
   k:=1+random(m*n); {выбираем номер ячейки}
  until not(k in mm);{пока он не встречен в множестве}
  mm:=mm+[k]; {добавим в множество}
  row:=(k-1)div n+1;{вычислим номер строки и столбца}
  col:=(k-1)mod n+1;
  Matr[row,col]:=s[i];{запишем символ в матрицу}
 end;
for i:=1 to m do
 begin
  for j:=1 to n do
  write(Matr[i,j]);
  writeln
 end;
readln
end.

repeat
write('Выберите номер строки от 1 до ',m,' k=');
readln(k);
until k in [1..m];
writeln('Слово в строке ',k);
for i:=1 to n do
write(Matr[k,i]);
readln
end.