Составить программу, удаляющую в строке все, что заключено между фигурными скобками и их самих — Pascal(Паскаль)

program del;

uses crt;

var
  l, i, n, m: integer;
  st: string;

begin
  clrscr;
  readln(st);
  i := length(st); { встаем в конец }
  while i >= 1 do { идем к началу }
    if st[i] = '{' then { откр. скобка }
    begin
      n := i; { запомним индекс }
      while (st[n] <> '}') and (n <= length(st)) do
        n := n + 1; { идем назад до закрывающей }
      delete(st, i, n - i + 1); { удаляем фрагмет }
      i := i - 1; { к началу }
    end
    else
      i := i - 1; { иначе просто к началу }
  write(st);
  readln

end.