Pascal (работа с текстовыми файлами)

[giv93]

Нужно разработать процедуру, которая считывает с текстового файла знаки до первой точки и образует новый файл по 40 знаков в строке.

У меня процедура в новый файл записывает по 40 символов только ту строку, в которой стоит точка. Например в исходном файле:
"jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj jjjjjjjjjjjjjjjjjj
dddddddddddddssssssssssss.csdcsdcjn bdsjkcb"

в новый файл процедура записывает только dddddddddddddssssssssssss, а первую строку нет...почему???

Program lab1;
uses crt;
type
let=text;
var
  fileN1,fileN2:string;
  f1:let;
  f2:let;

procedure readh(var fileN1, fileN2:string);
var
  c:string;
  f1:let;
  f2:let;
  i,j:integer;
begin
  assign(f1,filen1);
  assign(f2,filen2);
  reset(f1);
    while not eof(f1) do
     begin
      readln(f1,c);
       for i:=1 to length(c) do
         begin
           if (c[i]='.') then
             begin
                delete(c, i, length(c)-1);
             end;
         end;
     end;

    close(f1);
    writeln(c);
    writeln(c);


  rewrite(f2);
    j:=1;
    repeat
       write(f2,c[j]);
       if (j mod 40 =0) then
         begin
           writeln;
         end;
       j:=j+1;
    until j=length(c) ;
   close(f2);

end;


begin
filen1:='d://n1.dat';
filen2:='d://n2.dat';
readh(fileN1, fileN2);
end.

[spein]

Я бы сначала выделил строку, что идет до точки:

newStr:=copy(str, 0, pos('.', str));

а после по 40 символов разбивать на строки:

while(length(newStr) > 40) do begin
write(f2, copy(newStr, 0, 40));
delete(newStr, 0, 40);
end;

Не проверял, но должно работать.