Zistenie počtu slov, viet a riadkov v súbore

Ak ste dostali za úlohu jednoduchým spôsobom zistiť počty niektorých elementov v textovom súbore, prikladám príklad riešenia problému v prostredí delphi. Potrebujete komponenty Label1, Label2, Label3, Edit1 a Button1.
Kód:

 
 
procedure TForm1.Button1Click(Sender: TObject);
var f:TextFile;
znak:char;
riadkov,i,viet,slov:integer;
begin
  viet:=0;
  riadkov:=0;
  slov:=0;
  assignfile(f,edit1.Text);
  reset(f);
  while not eof(f) do
   begin
    read(f,znak);
    if (znak'.') or (znak'?') or (znak'!') then
    inc(viet);
    if eoln(f) then
    inc(riadkov);
    if (znak' ') or (znak',') then
    inc(slov);
   end;
  closefile(f);
  label1.Caption:=inttostr(viet);
  label2.caption:=inttostr(riadkov);
  label3.caption:=inttostr(slov);
  assignfile(f'vysledky.txt');
  rewrite(f);
  writeln(f'riadkov: '+inttostr(riadkov));
  writeln(f'viet: '+inttostr(viet));
  writeln(f'slov: '+inttostr(slov));
  closefile(f);
end;

in-page-blade(geshi-syntax-highlighter)