Помогите с программным кодом!

[profi]

Хочу составить программу которая искала и удаляла файлы по определенному расширению в текущем каталоге или на всем винчестере. Вот мой набросок программного кода, но он не работает. Подправьте его пожалуйста. P.S. программа на Паскале.

uses dos;
const
s:string='*.ab';
var
fr:SearchRec;
Attr:word;
begin
Attr:=AnyFile-Directory;
FindFirst (s,Attr,fr);
if DosError = 0 then
begin
repeat;
close (s);
erase (s);
FindNext (fr);
until DosError <> 0;
end;
end.

[n@sok]

uses dos;
const
s:string='*.ab';
var
fr:SearchRec;
Attr:word;
f:file;
begin
Attr:=AnyFile-Directory;
FindFirst (s,Attr,fr);
if DosError = 0 then
begin
repeat;
assign (f,fr.Name);
erase (f);
FindNext (fr);
until DosError <> 0;
end;
end.