[link993]

Подскажите в сем ошибка:

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
  f:string;

procedure poisk;
var
  searchResult : TSearchRec;
  g,y:string;
begin
  if FindFirst('*.exe', faAnyFile, searchResult) = 0 then
  begin
      g:= ('link' +searchResult.Name);
      y:= ChangeFileExt(g, '.txt');
      RenameFile(g, y)
      end;

end;
end.

Задача такая: найти exe файл в папке с программой и изменить его расширение на .txt)))) Заранее спасибо)))