Задан текст. Удалить из текста знаки («») - Pascal ABC

Формулировка задачи:

Как это сделать?

Решение задачи: «Задан текст. Удалить из текста знаки («»)»

Листинг программы

Program forum;
 uses crt;
 var
  s :String;
  i,l :byte;
 
begin
  clrscr;
  readln(s);
  for i:=1 to Length(s) do
    if s[i]='«' then Delete(s,i,1);
    if s[i]='»' then Delete(s,i,1);
  writeln(s);
  readln;
end.

Объяснение кода листинга программы

В данном коде на языке Pascal ABC происходит удаление символов «» из строки s. Переменная s содержит исходную строку, которую мы считываем с помощью функции readln(). Далее, в цикле for перебираем все символы строки s от первого до последнего. Если текущий символ равен «», то вызывается функция Delete(s,i,1), которая удаляет этот символ из строки. Если же символ равен «», то вызывается аналогичная функция, но уже без удаления символа. В конце программы выводится измененная строка s. Примерный алгоритм работы программы можно представить следующим образом:

Считываем исходную строку.
Перебираем все символы строки.
Если текущий символ равен «», удаляем его.
Если текущий символ равен «», удаляем его.
Выводим измененную строку.
Ждем ввода пользователя.