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

[Bokul]

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

[Bokul]

К klem4: если убрать inc(i), то програма все-равно не читает последнее
слово . Может ошыбка где-нибуть в другом месте.

А тепер к Volvo: спасибо за скрипт , все работает, но есть одно но - програма
не разбирает конец слов, тоесть нарпимер: у меня есть текст gogo и слово
которое надо найти - go, казалось бы програма должна вывести

no word: go

но вместо етого она выводит gogo красным цветом.
Где надо исправить для нормальной работы програмы?

[volvo]

Где надо исправить для нормальной работы програмы?

Вот так должно работать (тестировалось с приведенными в комментариях данными):

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

  change_count: integer;


begin
  clrscr;
  textcolor(lightgray);
  change_count := 0;

  write('Please, enter the text ');
  readln(str);
  { str := 'this is the goes test of gogoes'; }

  write('Enter the word you want to find');
  readln(find);
  { find := 'goes'; }

  repeat
    p := pos(find, str); plast := p;
    if p > 0 then begin

      while (p > 0) and (str[p - 1] <> ' ') do dec(p);
      while (plast <= length(str)) and (str[plast + 1] <> ' ') do inc(plast);

      if (copy(str, p, plast - p + 1) = find) then begin

        write( copy(str, 1, p - 1) );
        textcolor(lightred); write(find); textcolor(lightgray);
        inc(change_count);
        delete(str, 1, p + length(find) - 1)

      end

      else begin
        write( copy(str, 1, plast - 1) );
        delete(str, 1, plast - 1);
      end;

    end;

  until p = 0;

  writeln(str);

  if change_count = 0
    then writeln('no word: ', find);

  readln;
end.

P.S. Тема явно перестала быть теоретической, поэтому переношу ее в "Задачи".