Ć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.