Надо исправить задачу (ошибка пишет в while) или перепишите вместо while, в for - Delphi - Ответ 7517211

var
a:array [0..10] of integer;
st:array [0..10] of integer;
rez:array [0..10] of integer;
sum,i,j,k,x,s,n:integer;
otvet:string;
begin
writeln('kolichestvo monet');
readln(n);
for i:=1 to n do
begin
write('vvod dostoinstva monet');
read(a[i]);
end;
sum:=0;
for i:=1 to n do
begin
sum:=sum+a[i];
end;
otvet:='net reshenia';
if ( sum mod 2=0) then
begin
sum:= sum div 2;
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
if a[i]<a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
end;
end;
st[0]:=1;
st[1]:=1;
s:=a[1];
i:=st[1]+1;
if a[1]>sum then
otvet:='net reshenia';
st[1]:=0;
end;
if a[1]=sum then
begin
otvet:='est reshenia';
rez[1]:=a[1];
end;
while (st[1]=1) and (otvet='net reshenia') do
begin
while (i<=n) and (otvet='net reshenia') do
begin
S:=s+a[i];
if s=sum then
begin
otvet:='est reshenia';
x:=st[0];
for j:=1 to x do
begin
rez[j]:=a[st[j]];
end;
rez[x+1]:=a[i]
else
if s<sum then
begin
st[0]:=st[0]+1;
x:=st[0];
st[x]:=i
else
s:=s-a[i];
end;
i:=i+1;
end;
end;
x:=st[0];
i:=st[x]+1;
s:=s-a[st[x]];
st[0]:=x-1;
end;
end;
end.