подскажите где ошибка в коде!

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
   s,s1:string[50];
   i,n,m,kp,j:integer;
begin
write('=');
read(s); m:=1; n:=0;
for I := 1 to length(s) do
  begin
    if s[i]<>' ' then inc(n);  // n-количество букв
    if (s[i]=' ') and (s[i+1]<>' ') then  inc(m);// m-количество слов
  end;
kp:=50-n; // кр-число нехватающих пробелов
kp:=trunc(kp/m); // кр-число пробелов между словами
n:=1;
for I := 1 to length(s) do
 begin
   if s[i]<>' ' then  begin s1[n]:=s[i]; inc(n); end;
   if (s[i]=' ') and (s[i+1]<>' ') then
    begin
       for j := n to n+kp do
         begin
           s1[j]:=' ';
         end;
     n:=n+kp;
     inc(n);
    end;
 end;
 writeln(length(s1));
 writeln(s1);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
  readln;
 
 
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var
   s,s1:string;
   i,j,n,m,w,k,flag,slov:integer;
begin
s:=Edit1.Text;
flag:=1;
n:=0;
w:=0;
  for i:=1 to length(s) do
  begin
    if s[i]=' ' then
    begin
    flag:=1;
    end
    else
    begin
      if flag=1 then Inc(n);
      flag:=0;
      Inc(w);
    end;
  end;
s1:=StringOfChar('*',50);
k:=trunc((50-w)/n);
flag:=1;
m:=0;
  for i:=1 to length(s) do
  begin
    if s[i]=' ' then
    begin
      if flag=0 then
      m:=m+k;
      flag:=1;
    end
    else
    begin
      Inc(m);
      s1[m]:=s[i];
      flag:=0;
    end;
  end;
edit2.Text:=s1;
end;