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

[Гость]

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

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

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

[Bill Gates]

Первая задача (строка):

program z1;
var
    textStr,str:string;
    i:integer;
begin
    writeln('Введите строку:');
    readln(textStr);
    writeln('Введите слово для удаления');
    readln(str);
    for i:=1 to length(textStr)-length(str) do
         if copy(textstr,i,length(str)) = str then
         begin
          delete(textstr,i,length(str));
          insert(' ',textstr,i);
         end;
    writeln(textstr);
    readln;
end.