Выровнять массив вида MxN

uses crt,graphabc;
 
procedure WriteRight(const s: string);
begin
 GotoXY(Length(s), WhereY);
 Write(s);
end;
 
const
nmax=9;
  k=2;
  l=7;
  m=20;
  n=10;
var
//a:array [1..M,1..N] of string[l];
a:array[1..m,1..n] of string;
    //m,n,k,l,i,j,r,p,kol:byte;
    s,st:string;
    i,j,r,p,kol:byte;
begin
//window(1,1,80,25);
setWindowSize(650,420);
 
repeat
//writeln('Количество строк до ',2*nmax,' m=');
//readln(m);
until m in[1..3*nmax];
repeat
//writeln('Количество столбцов до ',nmax,' n=');
//readln(n);
until n in[1..2*nmax];
repeat
//writeln('Минимальная длина слов от 1 до 6 k=');
//readln(k);
until k in [1..6];
repeat
//writeln('Максимальная длина слов от ',k,' до 7 l=');
//readln(l);
until l in [l..7];
writeln('Исходная матрица ',m,'x',n,': ','(N=',n,' M=',m,' L=',l,' K=',k,')');
writeln;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    r:=k+random(l-k+1);             //количество символов
    s:='';
    for p:=1 to r do
    s:=s+chr(65+random(26));    //генерация случайных букв
    while length(s)<-50 do s:=s+' ';
    a[i,j]:=' '+s;
    if(i mod 3=0)and not(a[i,j][r] in ['A','E','I','O','U',' '])  then
           begin
               //setWindowSize(650,440);
               //window(1,1,100,500);
               //TextSize(12);
               TextAttr:=16*LightGray+Yellow;
                     kol:=kol+1;   {считаем количество}
              // TextColor(0);  {цвет по умолчанию}
           end
    //then TextAttr:=16*LightGray+Yellow
    else TextAttr:=16*White+Black;
    write(a[i,j]:l+0,'');
    //WriteRight;
   end;
  writeln;
 end;
TextBackGround(14); {цвет фона}
TextColor(0); {цвет текста}
writeln;
write('                                                    Количество слов=',kol);{это вводим в отдельном окне}
TextBackGround(white);
writeln;
end.

CRTWindowSize(650,420)

uses crt;
const  k=2;
       l=6;
       m=20;
       n=10;
var a:array[1..m,1..n] of string;
    i,j,r,p:byte;
    s,st:string;
 
begin
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    r:=k+random(l-k+1);
    s:='';
    for p:=1 to r do
    s:=s+chr(65+random(26));
    while length(s)<l do s:=s+' ';
    a[i,j]:=s;
    if(i mod 3=0)and not(a[i,j][r] in ['A','E','I','O','U',' '])
    then TextAttr:=16*LightGray+Yellow
    else TextAttr:=16*White+Black;
    write(a[i,j]:l+1);
   end;
  writeln
 end;
end.