Строки и файлы(Pascal)

[FONT=Courier New]program codenet_example;
uses crt;[/FONT]
[FONT=Courier New][/FONT]
[FONT=Courier New]var TXT : Text;
    content : string;
    c : char;
    wordCount, currentWordCount : integer;
begin
     wordCount := [COLOR=blue]0[/COLOR];
     currentWordCount := [COLOR=blue]0[/COLOR];
     content := [COLOR=blue]''[/COLOR];
     write([COLOR=blue]'Enter count of words, please = '[/COLOR]);
     readln(wordCount);
     Assign(TXT, [COLOR=blue]'text.txt'[/COLOR]);
     Reset(TXT);
     while not EOF(TXT) do
     begin
          read(TXT, c);
          content := content + c;
          case c of
               [COLOR=blue]' '[/COLOR] : Inc(currentWordCount);
               [COLOR=blue]'.'[/COLOR], [COLOR=blue]'?'[/COLOR], [COLOR=blue]'!'[/COLOR] : begin
                    Inc(currentWordCount);
                    if(currentWordCount = wordCount) then writeln(content);
                    content := [COLOR=blue]''[/COLOR]; currentWordCount := [COLOR=blue]0[/COLOR]
                    end;
          end;
     end;
     Close(TXT);
     repeat until keypressed;
end.[/FONT]