Ошибка в циклах.

procedure tform1.readfile;  //чтение файла и вывод в стринггрид
  var
    s,s1:string;
    i,j,u:integer;
begin
stringgrid1.RowCount:=2;
reset(f1);
 while not eof(f1) do
  begin
    j:=1;u:=1;
    stringgrid1.cells[0,u]:=inttostr(u); //номер строки стрингррида
    read(f1,s);
    if length(s)>0 then   //проверяем пустая ли строка
    for i:=1 to length(s) do   //разбиваем строку ориентируясь на символ #
     begin
       if s[i]='#'    then begin
                         stringgrid1.Cells[j,u]:=s1;
                         if u>2 then stringgrid1.FixedRows:=1;
                         if j<>6 then j:=j+1 else begin j:=1; u:=u+1; end;
                         s1:='';
                         end
                                        else begin
                                        s1:=s1+s[i];
                                        end;
 
     end;
  end;
end;