program pr;
label l;
var mas:array[1..10] of integer;
i,k,n,b,sum:integer;
begin
randomize;
for i:=1 to 10 do mas[i]:=round((10-(-10))*random+(-10));
l:
for i:=1 to 10 do
begin
if n<mas[i] then
begin
n:=mas[i];
k:=i;
end;
end;
writeln ('a[',k,']=',n);
mas[k]:=-11;
n:=0;
k:=0;
if b=0 then
begin
b:=1;
goto l;
end;
readln;
end.

Программу проверил все работает