Удалить из текста все буквы «о» — Pascal(Паскаль)

uses crt;

var
  word1, word: String;
  dl, n: integer;
label1;

begin
  clrscr;
  writeln('Введите текст');
  readln(word1);
  writeln('Введите букву, которую надо удалить');
  readln(word);
  dl := length(word1);
  n := pos(word, word1);
1:
  if n > 0 then
  begin
    Delete(word1, n, 1);
    insert(' ', word1, n);
    dl := length(word1);
    if dl > 0 then
    begin
      n := pos(word, word1);
      goto 1;
    end;
  end;
  writeln(word1);

end.

Leave a Comment

− 3 = 5