Выравнивание текста по ширине, не могу разобраться что делаю не так, прошу помощи Опции

[Feagor]

задача такова дана символьная матрица матрица n*m, вводятся строки длиной m<=255
затем текст выравнивается по ширине, т.е. добавить пробелы в местах где они есть, но так чтобы их разница между их количеством различалась не больше чем на 1.
Собственно листинг:

uses crt;
var a:array[1..255,1..255] of char;
    b,probeli:array[1..255] of integer;
    s:string;
    i,n,m,j,k:integer;
begin
  clrscr;
  writeln('Vvedite chisla n,m(kolichestvo strok,dlina stroki)');
  readln(n,m);
  for i:=1 to n do
        begin
          writeln('Vvedite ',i,' stroku');
          readln(s);
          b[i]:=length(s);
          for j:=1 to m do a[i,j]:=s[j];
        end;
 { for i:=1 to n do writeln(b[i]);}
  for i:=1 to n do
        begin
          for j:=1 to b[i] do if a[i,j]=' ' then probeli[i]:=probeli[i]+1;
          {writeln(probeli[i]);}
          if b[i]<m then
                begin
                 for j:=1 to b[i] do s[j]:=a[i,j];
                 j:=1;
                 while j<=b[i] do
                   begin
                     if s[j]=' ' then
                        begin
                          for k:=1 to ((m-b[i]) div probeli[i]) do insert(' ',s,j);
                        end;
                     j:=j+((m-b[i]) div probeli[i])+1;
                   end;
                 for j:=1 to m do a[i,j]:=s[j];
                end;
        end;
  for i:=1 to n do begin
  writeln;
  for j:=1 to m do write(a[i,j]);
  end;
  readkey;
end.

работает правда не правильно=(

Сообщение отредактировано: Feagor - 18.12.2007 9:31