удаление части текста на паскале

var
strin,strout:string;
i:integer;
flag:boolean;
begin
write('Vvedite text: ');
readln(strin);
strout:='';
flag:=true;
for i:=1 to lentgth(strin) do 
begin
if strin[i]='(' then flag:=false;
if flag then strout:=strout+strin[i];
if strin[i]=')' then flag:=false;
end;
write('Rezultat: ',strout);
readln;
end.

uses crt;
var s,s1:string;
b:boolean;
i:byte;
begin
clrscr;
writeln('Text:');
readln(s);
s1:='';
b:=true;
for i:=1 to length(s) do 
begin
  if s[i]='(' then b:=false;
  if b=true then s1:=s1+s[i];
  if s[i]=')' then b:=true;
end;
write(s1);
readln;
end.

uses crt;
var s:string;
i:byte;
begin
clrscr;
writeln('Stroka:');
readln(s);
while (pos('(',s)>0)and(pos(')',s)>0) do
delete(s,pos('(',s),pos(')',s)-pos('(',s)+1);
write(s);
readln;
end.

program aaa;
   uses crt;
   var c,i,d,x,y:integer;
       im:string;
   begin
    clrscr;
    write('Vvod imeni ');
    readln(im);
    d:=length(im);
    y:=2;
    for i:=1 to d do
     begin
      c:=(random(15)+1);
      textcolor(c);
      gotoxy(i,y);
      writeln(im[i]);
     end;
readln;
end.

program aaa;
uses crt;
var i,w:integer;
    im:string;
begin
clrscr;
repeat
clrscr;
write('Vvod imeni ');
readln(im);
for i:=1 to length(im) do
 begin
  textcolor(i);
  write(im[i]);
 end;
textcolor(15);
writeln;
writeln('Продолжить? 1-да другое-нет');
readln(w);
if w<>1 then exit;
until w<>1;
readln
end.