{* Замены в строке 2 *}

Unit ZAMENSTR2;
Interface
Implementation
Begin
 writeln('Если строка содержит знак "'", то заменить в строке все на "*"');
End.

Program zamenstr2;

Uses zamenstr2.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  S     : String;
  i     : integer;
  found : boolean;
Begin
  Write('Введите сроку символов : ');
  Readln(S);
  Found := FALSE;
  For i := 1 To Length(S) Do {Length(s) = длина строки, стандартная функция}
    If s[i] = '''' Then
      found := TRUE;
  If Found Then {если найден символ "'", заменяем}
    For i := 1 To Length(S) Do {* Переменная i увеличивается с 1 до Length(S) *}
      s[i] := '*';
  Writeln('Результирующая строка : ', S);
End.