Работа с директориями и файлами Опции

[setare]

Здравствуйте! У меня очень легкая программа, но я не могу понять где в моем коде ошибка. Нужно найти все директивы и файлы и записать их в разных созданных файлах. Оно мне ничего не пишет. Что делать?

Исходный код

program files;
uses dos;
type
str79=string[79];
procedure find(var f,f1:text;mask:str79;attr:byte;S:searchRec);
begin
Findfirst('*.*',AnyFile,S);
while DosError=0 do
begin
if S.attr=$10 then
begin
writeln(f,S.name);
FindNext(s);
end
else
if S.attr=$3F then
writeln(f1,S.name,'-',s.size/1024:6:2)
end;
end;
var
flname:string[20];
f,f1:text;
pathstr:string[20];
begin
writeln('Vvedite put:');
readln(pathstr);
writeln('Vvedite imya 1 fila.');
readln(flname);
writeln('Vvedite imya 2 fila.');
readln(flname);
assign(f,flname);
assign(f1,flname);
rewrite(f);
rewrite(f1);



end.