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

uses crt;
var st,stnew:string;
k1,k2:integer;
 
begin
 clrscr;
 write('-> ');
 readln(st);
 k1:=1;
 k2:=length(st);
 while (k1<n) and (st[k1]<>'(') then inc(k1);
 while (k2>1) and (st[k2]<>')') then dec(k2);
 if (k1<k2) and (st[k1]='(') and (st[k2]=')') then
 begin
  stnew:=copy(st,k1,k2-k1+1);
  writeln(stnew);
 end else write('Ошибка ввода');
 readln;
end.