Напишите функцию , которая удаляет из переданной ей символьной строки все символы, заключённые в угловые '<' - Pascal ABC

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

Напишите функцию , которая удаляет из переданной ей символьной строки все символы, заключённые в угловые '<' и '>'(вместе с этими скобками)

Решение задачи: «Напишите функцию , которая удаляет из переданной ей символьной строки все символы, заключённые в угловые '<'»

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

function f(x: string): string;
var
  i, p1, p2: byte;
begin
  for i := 1 to Length(x) do if x[i] = '>' then p2 := i;
  for i := Length(x) downto 1 do if x[i] = '<' then p1 := i;
  Delete(x, p1, p2 - p1 + 1);
  f := x
end;

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

В функции f используется два указателя, p1 и p2, которые будут использоваться для выделения символов из строки x.
Переменная i используется для итерации по каждому символу в строке x.
Переменная p1 устанавливается в значение i, если текущий символ равен '>'. Это будет служить указателем на последний символ перед '>'.
Переменная p2 устанавливается в значение i, если текущий символ равен '<'. Это будет служить указателем на первый символ после '<'.
Затем функция использует функцию Delete, чтобы удалить все символы между p1 и p2 из строки x.
Наконец, функция возвращает измененную строку x.