Строки в Паскале

[istragon]

Написать процедуру удаления из строки S всех вхождений подстроки Subs.

[Sibedir]

Пример из Delphi World 6

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Замена в строке всех вхождений одной подстроки, на другую

Зависимости: -
Автор:       Евгений Валяев (RhinoFC), rhinofc@sniiggims.ru, ICQ:55263922, Новосибирск
Copyright:   RhinoFC
Дата:        5 июня 2002 г.
***************************************************** }

function StrReplace(const Str, Str1, Str2: string): string;
// str - исходная строка
// str1 - подстрока, подлежащая замене
// str2 - заменяющая строка
var
  P, L: Integer;
begin
  Result := str;
  L := Length(Str1);
  repeat
    P := Pos(Str1, Result); // ищем подстроку
    if P > 0 then
    begin
      Delete(Result, P, L); // удаляем ее
      Insert(Str2, Result, P); // вставляем новую
    end;
  until P = 0;
end;

[LARtiS]

Ребят, пожалуйста напишите прогу срочно!!!

Из заданного предложения выбрать те символы, которые встречают-ся в нем только один раз (в том порядке в котором они встречаются в предложении).

[LARtiS]

Предложение сам вводишь

[LARtiS]

мне завтра сдать надо, так что плиз сделайте... Зачет нужен очень...

[IT-man]

стучи в аську! напишу за $!

[LARtiS]

А помощь только за $ ?