Ćwiczenie 115.

Napisać program obliczający liczbę słów w pliku tekstowym.

program Project5;

{$APPTYPE CONSOLE}

uses

SysUtils;

VAR

tekst:String[80];

t:text;

a:char;

slowo : string;

liczba: integer;//

ilosc: integer; //

BEGIN

assign(t, 'plik.txt');

reset(t);

ilosc:=0;

while not eof(t) do

begin

slowo := '';

REPEAT

read(t,a);

if (a > ' ') and (a <> ',') then slowo:=slowo+a;

UNTIL (a<=' ') or (a=',');

liczba:=Length(slowo);

if(liczba>0)then

ilosc:=ilosc+1;

end;

Close(t);

readln;

END.