Из заданного текста удалить последовательность символов между двумя апострофами - Pascal

var s: string;
    n, k: integer;
begin
  writeln('Введите строку, содержащую не менее двух апострофов:');
  readln(s);
  n := pos('''', s);
  if n = 0
    then write('Строка не содержит апострофов.')
    else begin
      k := length(s);
      while s[k] <> '''' do dec(k);
      if k = n
        then write('В строке нет второго апострофа.')
        else begin
          delete(s, n + 1, k - n - 1);
          writeln('Результат:');
          write(s)
        end
    end;
 readln
end.