Определить длину строки. Если длина строки >6, удалить часть строки в { } скобках.

var s: string;
begin
  writeln('Введите строку:');
  readln(s);
  writeln('Длина = ', length(s));
  if length(s) > 6
    then begin
      if (pos('{', s) > 0) and (pos('}', s) > 0) and (pos('}', s) > pos('{', s))
        then begin
          delete(s, pos('{', s) + 1, pos('}', s) - pos('{', s) - 1);
          writeln('Результат:');
          writeln(s)
        end
        else writeln('Не хватает фигурных скобок или неправильная их последовательность.');
    end;
  readln
end.

var s: string;
    i, n, k: integer;
begin
  writeln('Введите строку:'); {ввод строки}
  readln(s);
  writeln('Длина строки = ', length(s)); {печать длины строки}
  if length(s) > 6 {если длина строки больше 6,}
    then begin {потрошим строку}
      writeln('Длина строки больше 6 символов, вырезаем части строки со скобками.');
      if (pos('{', s) = 0) and (pos('}', s) = 0)
        then writeln('Скобок не обнаружено.') {если скобок нет}
        else if (pos('{', s) = 0) and (pos('}', s) > 0) or (pos('{', s) > 0) and (pos('}', s) = 0)
          then writeln('Скобка только одна.') {есть только одна скобка}
          else begin
            n := 0; {n в этом цикле используем для определения правильности последовательности скобок и их парности}
            for i := 1 to length(s) do
              begin
                if s[i] = '{' then inc(n);
                if s[i] = '}' then dec(n);
                if n < 0 then break  {скобка закрылась раньше, чем открылась, либо закрывающих скобок больше}
                              {досрочный выход из цикла}
              end;
            if n < 0
              then writeln('Неверная последовательность скобок или скобки непарные.')
                          {скобка закрылась раньше, чем открылась, либо закрывающих скобок больше}
              else if n > 0
                then writeln('Скобки не парные.') {открывающих скобок больше}
                else begin {иначе всё верно, удаляем части строк}
                  while pos('{', s) > 0 do {пока осталась хоть одна пара скобок, делаем}
                    begin
                      n := 0; {начало фрагмента, пока начало не найдено}
                      for i := 1 to length(s) do
                        begin
                          if s[i] = '{' then n := i; {найденно начало}
                          if (s[i] = '}') and (n > 0) {если найден конец и уже найдено начало,}
                            then begin {то}
                              k := i; {найден конец}
                              break {досрочно из цикла}
                            end
                        end;
                      delete(s, n, k - n + 1) {и удаляем найденный фрагмент вместе со скобками}
                    end;
                  writeln('Результат:');
                  if length(s) = 0
                    then writeln('Была вырезана вся строка.') {получилась пустая строка}
                    else writeln(s); {получилась непустая строка, печатаем}
                end
          end
    end;
  write('Нажмите <Enter> для выхода из программы.');
  readln {ждём реакции пользователя для выхода из программы}
end.