циклы

[ПрИуЭт]

Посмотрите пожалуйста - на чем именно зацикливается программа(((

begin
s:=Edit1.Text;
y:=length(s);
while y>0 do begin
if y>b then begin
s1:=copy(s,1,b);
delete(s,1,b); end
else begin
for i:=1 to n do begin
for j:=1 to n do begin
z[i,j]:='';
end; end;
s1:=s;
delete(s,1,length(s));
end;
y1:=length(s1);
while y1>0 do begin
v:=copy (s1,y1,1);
delete(s1,y1,1);
for i:=1 to n do begin
for j:=1 to n do begin
if a[i,j]=y1 then z[i,j]:= v;
end; end;
y1:=length(s1);
end;
for j:=1 to n do begin
for i:=1 to n do begin
sh:=sh+z[i,j];
end; end;
y:=Length(s);
end;

end;

[Granus]

Вы знаете что такое с++?