Поиск ошибки

[Falcao]

Есть задача: нужно считать текст с файла и перевести все первые буквы слов в верхний регистр, у меня почти всё готово. Лишь выдает 1 строку ряда до конца файла, с первыми буквами большого регистра...
ДОПУСТИМ есть такой текст:

sflsf slfkslfk lsfk kasdk dlad
dfsfd ks sf,s sf adad addas
daxkvck zcvxzx
dsf sfs fzf xcvb dgs gsg

в результате выполнения программы выдаёт

Sflsf Slfkslfk Lsfk Kasdk Dlad
Sflsf Slfkslfk Lsfk Kasdk Dlad
Sflsf Slfkslfk Lsfk Kasdk Dlad
Sflsf Slfkslfk Lsfk Kasdk Dlad

Знаю что ошибка маленькая, где-то в цикле, но найти не могу...

uses crt;
var
  f,k:text;
  s:array[1..255] of string;
  s_new:array[1..255] of string;
  a:array[1..100] of string;
  i,n,max,b,l,count:integer;
begin
clrscr;
assign(f, '???');
reset(f);
assign(k, '???');
rewrite(k);

while not eof(f) do
 begin
   inc(b);
   readln(f,s[b]);
 end;

 max:=b;

 count:=1;
 i:=1;
 n:=1;
 b:=1;
 
 for b:=1 to max do
 begin
     begin
         while (i<=length(s[b])) do
          begin
            if s[b][i]=' ' then
              begin
                inc(count);
                inc(i);
                inc(n);
              end;

   a[count]:=a[count]+s[b][i];
   inc(i);
   l:=count;
 end;

s_new[b]:='';

 for count:=1 to l do
  begin
    if a[count][1] in ['a'..'z'] then a[count][1]:=UpCase(a[count][1]);
    s_new[b]:=s_new[b]+a[count]+' ';
  end;
     end;
writeln(k, s_new[b]);


end;

close(f);
close(k);
 end.

[Falcao]

Помогииите... Тут же мелочь)
вот, я понял в чём суть... Массив "а" со словами нужно очищать всё время... пробовал так, но всё равно...

uses crt;
var
  f,k:text;
  s:array[1..255] of string;
  s_new:array[1..255] of string;
  a:array[1..100] of string;
  i,n,max,b,l,count:integer;
begin
clrscr;
assign(f, '???');
reset(f);
assign(k, '???');
rewrite(k);

while not eof(f) do
 begin
     inc(b);
     readln(f,s[b]);
 end;

 max:=b;

 count:=1;
 i:=1;
 n:=1;
 b:=1;
 
 for b:=1 to max do
    begin
     begin
         while (i<=length(s[b])) do
          begin
            if s[b][i]=' ' then
              begin
                inc(count);
                inc(i);
                inc(n);
              end;

   a[count]:=a[count]+s[b][i];
   inc(i);
   l:=count;
 end;

s_new[b]:='';
end;

 for count:=1 to l do
  begin
    if a[count][1] in ['a'..'z'] then a[count][1]:=UpCase(a[count][1]);
    s_new[b]:=s_new[b]+a[count]+' ';
  end;
writeln(s_new[b]);

i:=1;                     {TYT ИСПРАВИТЬ НУЖНО...}
s_new[b]:='';



end;

close(f);
close(k);
 end.

[Falcao]

Уже сам нашел ошибку, спасибо за внимание) Кому интересно:

uses crt;
var
  f,k:text;
  s:array[1..255] of string;
  s_new:array[1..255] of string;
  a:array[1..100] of string;
  i,n,max,b,l,count:integer;
begin
clrscr;
assign(f, '???');
reset(f);
assign(k, '???');
rewrite(k);

while not eof(f) do
 begin
     inc(b);
     readln(f,s[b]);
 end;

 max:=b;

 count:=1;
 i:=1;
 n:=1;
 b:=1;
 
 for b:=1 to max do
    begin
     begin
         while (i<=length(s[b])) do
          begin
            if s[b][i]=' ' then
              begin
                inc(count);
                inc(i);
                inc(n);
              end;

   a[count]:=a[count]+s[b][i];
   inc(i);
   l:=count;
 end;

s_new[b]:='';
end;

 for count:=1 to l do
  begin
    if a[count][1] in ['a'..'z'] then a[count][1]:=UpCase(a[count][1]);
    s_new[b]:=s_new[b]+a[count]+' ';
  end;
writeln(s_new[b]);

i:=1;
s_new[b]:='';

for count:=1 to l do    {тут геммор был}
a[count]:='';
count:=1;


end;

close(f);
close(k);
 end.