Удалить всю часть строки в скобках в строке, введенной с клавиатуры — Pascal(Паскаль)

uses crt;
var str : string;
    index1, index2, i : byte;
 
begin
clrscr;
 
write ('String: ');
readln (str);
 
for i:=1 to length (str) do
  if str[i] = '(' then
    begin
      index1:=i;
      break;
    end;
 
for i:=index1+1 to length (str) do
  if str[i] = ')' then
    begin
      index2:=i;
      break;
    end;
 
Delete (str, index1+1, index2-index1-1);
 
writeln ('Rez: ', str);
readkey;
end.