Процедура Gotoxy, Какой скрипт процедуры gotoxy Опции

[Bokul]

Хто знает как работает процедура gotoxy. :low:
И еще: работает ли она при работе с файлами?
Если нет, то можна написать самому такую процедуру. :ryg:

[volvo]

program FindText;
uses crt;
var
  s, str, find: string;
  p: byte;

begin
    clrscr;
    textcolor(lightgray);
    writeln('Please, enter the text ');
    readln(str);
    s := str;
    writeln('Enter the word you want to find');
    readln(find);

    repeat
      p := pos(find, str);
      if p > 0 then begin
        write( copy(str, 1, p - 1) );
        textcolor(lightred);
        write(find);
        textcolor(lightgray);
        delete(str, 1, p + length(find) - 1)
      end;
    until p = 0;
    writeln(str);

    if str = s then writeln('no word: ', find);

    readln;
end.

Не проще? Вместо того, чтобы работать посимвольно...