Исправьте ошибку

[kasper182]

Исправьте ошибку

Var strl:string[30];
a,b,c,i,j,k,g,x,l,h,r:integer;
begin
writeln('23);
writeln('Â31');
writeln('32');
writeln('3é');
writeln('4êó');
readln(strl);
x:=0;
l:=0;
j:= length (strl);
for i:=1 to j do
begin
if ( strl='(')
then x:=x+1;
if (str1=')')
then l:=l+1;
end;
r:abs(x-1);
h:=(x+l-r) div 2;
for g:=1 to h do
begin
for i:=1 to j do
if (strl=')')
then begin
b:=i;
break;
end;
for k:= 1 to b do
if (strl[k]='(')
then a:=k;
c:=b-a+1;
{writeln('Проверка: ',strl);}
delete (strl,a,c);
end;
write('Полученная строка:');
writeln(strl);
end.

помогите найти и исправить ошибку

 

[Max]

исправьте ощибку

Исправил на

Исправьте ошибку

 

[Vladimir_S]

Прежде всего - соблаговолите снизойти до формулировки задачи, каковую призвана решить программа сия. Понимаю - лишний раз любимыми пальчиками шевельнуть - ну очень напряжно, но что уж тут поделаешь, коли у нас на форуме сплошь лентяи собрались, не желающие засесть за анализ программы и самостоятельно доискаться до ответа на вопрос "а что имел в виду автор?". Тем более, что заняться нам явно нечем.
И еще: вот это что за художество?

writeln('23);
writeln('Â31');
writeln('32');
writeln('3é');
writeln('4êó');

Исправьте. А лучше всего - уберите кириллицу к такой-то бабушке, чтобы не было заморочек с кодировками.