Ячейки двумерного массива

uses crt;
var a:array[1..10,1..10] of char;
    s:string;
    m,n,i,j,k,x:integer;
    mn:set of byte;
begin
clrscr;
randomize;
repeat
write('Введите количество строк от 2 до 10 m=');
readln(m);
until m in [2..10];
repeat
write('Введите количество столбцов от 2 до 10 n=');
readln(n);
until n in [2..10];
repeat
writeln('Введите строку длиной ',m*n,' символов');
readln(s);
until length(s)=m*n;
writeln('Матрица символов');
mn:=[];
for i:=1 to m*n do
 begin
  repeat
   x:=1+random(m*n);
  until not(x in mn);
  mn:=mn+[x];
  a[(x-1)div n+1,(x-1)mod n+1]:=s[i];
 end;
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:2);
  writeln;
 end;
repeat
write('Введите номер строки от 1 до ',m,' k=');
readln(k);
until k in [1..m];
writeln('Слово в строке ',k);
for i:=1 to n do
write(a[k,i]:2);
readln
end.