Строки, вроде не сложно, но что-то не выходит :( Опции

[Гость]

Две вот таких задачки:

1. Дан текст. Заменить на пробелы слово введённое пользователем. В противном случае вывести сообщение о том, что его нет;

2. В заданном предложении найти самое короткое и самое длинное слова.

[volvo]

Bokul, я бы все-таки делал так:

...
b := false;
repeat
  i := pos(' ' + find + ' ', ' ' + source + ' ');
  if i > 0 then begin
    b := true;
    delete(source, i, length(find));
    insert(' ', source, i);
  end;
until i = 0;
...

, иначе последнее слово ты не ловишь ...