Поиск файла на диске. Паскаль

[KonaeJer]

Задание: Найти на диске файл с заданным именем. Имя файла вводить с клавиатуры.
Кто может помочь?

[KonaeJer]

Накидал тут пример:

Program Search_file:
var A: text;
    B: string;
begin
write('Введите имя файла: ');
readln(B);
assign(A,B);
GetDir(0,B);
writeln('Файл находится в директории: ',B);
readln;
end.

Но он ищет только этот файл в той папке, где находится компилятор. То есть директория в любом случае получается одна и та... А мне нужно искать на всем диске( или разделе диска С:\, что еще лучше )
Никто не может почочь? В паскале очень плох.
Буду очень благодарен.

[eoln]

F1 в помощь. Потом рекурсию надо будет построить. Примеры на форуме есть. Правда они на Delphi в основном, но там разницы нет (это я про алгоритм)

[KonaeJer]

Не могли бы вы набросать пример программы?

[eoln]

У меня модуля WinDos нет, поэтому проверить не могу. Вот пример рекурсивного поиска с Dos. Есть ограничения: вылетает при пути поиска длинной более 79 символов (уходит в бесконечную рекурсию ) и прочии DOS-сопутствующие обстоятельства

uses Dos;
procedure Find(s: string);
var
  DirInfo: SearchRec;
begin
  FindFirst(s+'turbo.exe', ReadOnly+Hidden+SysFile+Archive, DirInfo);
  if DosError = 0 then writeln('File find in ', s);

  FindFirst(s+'*', Directory, DirInfo);
  while DosError = 0 do
  begin
    if (DirInfo.Name <> '.') and (DirInfo.Name <> '..') then
      Find(s+DirInfo.Name+'\');
    FindNext(DirInfo);
  end;
end;

begin
  Find('c:\tp\');
end.

Ввод с клавиатуры самостоятельно.