const
podstroka = '*Mitiay';

var
f, sorted: textfile;

procedure Parse(s: string);
begin
          if strpos(PChar(s), podstroka) <> nil then
                writeln(sorted, s);
end;


begin
path := ExtractFilePath(ParamStr(0));
assignfile(f, path + 'file.txt');
assignfile(sorted, path + 'file_sorted.txt');
reset(f);
rewrite(sorted);
    while not eof(f) do
      begin
        readln(f, s);
        Parse(s);
      end;
closefile(f);
closefile(sorted);