{$mode objfpc}
uses dos;
var
  FileInfo: SearchRec;
begin
  FindFirst('G:\test.pp', AnyFile, FileInfo);
  if DosError = 0 then begin
    writeln('Attr = ', FileInfo.Attr);
  end;
end.

{$mode objfpc}
uses dos;
const SLASH ='\';
var
	workdir: string;

function getworkdir():string;
	{return work directory}
var
	workdir: string;
	workd: word;	{ use as zerro:) }
begin
	getdir(workd, workdir);
	getworkdir := workdir
end;


function getname(const sr:SearchRec):string;
	{SearchRec -> file name}
begin
	getname :=  sr.name;
end;

function getatr(const sr:SearchRec):longint;
	{SearchRec -> attr}
begin
	getatr := sr.attr;
end;
	
function ifdir(const path:string):boolean;
	{if it's directory}
	function getattr(const path:string):word;
		{Path -> attr}
	var f:file;
	begin
		assign(f, path);
		GetFAttr(f, result);
	end;
begin
	ifdir := getAttr(path) = directory;
end;

function ifread(const str:string):boolean;
	{is file can be read?
	if file is directory then false
	result print}
var
	f:file;
begin
	ifread:=false;
	if not ifdir(str) then begin
		assign(f,'str');
		{$I-} reset(f); {$I+} 
		if IOResult <> 0 then begin writeln('-', str); readln; read; end
			else begin ifread:=true; writeln('+', str); readln; read; end;
	end;
end;

procedure getunread(const fw:string);
	{print unread files
	function change work directory!}
var
	sr:SearchRec;
begin
	FindFirst('*', AnyFile, sr);	//все файлы, типа инициализации
	ifread(fw);	//проверяем на доступность переданный файл
	FindNext(sr);	//получаем следующий файл
	if doserror = 18 then //если в директории еще есть файлы?
		if getworkdir <> workdir then	ChDir ('..'+SLASH)	//нет. переходим на каталог выше
		else
			if sr.attr = directory then begin	//обнаружена директория, переходим в нее
				chdir(fw+getname(sr)+SLASH);
				getunread(fw+getname(sr)+SLASH);
			end else
				ifread(getname(sr));	//обнаружен файл, проверяем его
end;

begin
	workdir:=getworkdir();	//сохраняем рабочую директорию
	getunread(workdir);	//ищем
	ChDir(workdir);	//восстанавливаем дирректорию 
end.

...
	getdir(workd, workdir); // <--- 
	getworkdir := workdir
...

// здесь readln-ы я убрал, чтоб не щелкать по enter-у постоянно...
function ifread(const str:string):boolean;
var
  f: file;
begin
  ifread:=false;
  if not ifdir(str) then begin
    assign(f, str); // Почему у тебя была СТРОКА 'str', а не ее содержимое?
    {$I-} reset(f); {$I+}
    if IOResult <> 0 then begin
      writeln('-', str);
    end
    else begin
      ifread := true;
      writeln('+', str);
    end;
  end;
end;

procedure getunread(const fw: string);
var
  sr: SearchRec;
begin
  ifread(fw);
  chdir(fw);

  FindFirst('*.*', AnyFile, sr);
  while DosError = 0 do begin

    if (sr.name <> '.') and (sr.name <> '..') then begin

      if (sr.attr and directory = directory) then begin
        getunread(fw + sr.name + slash);
      end
      else ifread(fw + getname(sr));

    end;

    FindNext(sr);

  end;
end;

Цитата(volvo @ 10.04.2008 18:33)

 if (sr.name <> '.') and (sr.name <> '..') then begin

 (sr.attr and directory = directory) 

Цитата(compiler @ 10.04.2008 21:14)

Цитата(compiler @ 10.04.2008 21:14)

 if (sr.name <> '.') and (sr.name <> '..') then begin

Цитата(compiler @ 10.04.2008 21:14)

 (sr.attr and directory = directory) 

if value and mask = mask then ...

function ifread(const str:string; const ifdir: boolean = true): boolean;
var
  f: file;
begin
  ifread:=false;
  if not ifdir then begin ...

...
      if (sr.attr and directory = directory) then begin
        getunread(fw + sr.name + slash);
      end
      else ifread(fw + getname(sr), false); // <--- 
...