Файл f.txt заполнен так, что каталог пишется в строке сразу
(а вложенные в него каталоги имеют пробел вначале).
code: # pascal program PascalGuru;
label 1;
var
f: text;
n: integer;
s, name_kat: string;
begin
assign(f, 'f.txt');
n := 0;
name_kat := '';
reset(f);
while not eof(f) do
begin
readln(f, s);
if (s[1] <> ' ') and (name_kat = '') then
name_kat := s;
if s[1] <> ' ' then
begin
if n <> 0 then
begin
writeln(name_kat, ': ', n);
n := 0;
name_kat := s;
end
end
else
inc(n);
end;
writeln(name_kat, ': ', n);
close(f);
readln;
end.