Написать программу, которая подсчитывает количество всех вложенных каталогов в указанном каталоге — Pascal(Паскаль)

Файл 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.

Leave a Comment

7 + 2 =