проверьте пожалуйта или напишите свою версию решения....мурррр

Program p6; 
cоnst n = 10; 
var a:array [1..n] of real; 
max:real; 
i:integer; 
begin 
randomize; 
for i:=1 to n do 
a := random(20)-10; 
max := a[1]; 
for i:=2 to n do 
if max<a<i>>; 
write('max=',max:2:2); 
end.

for i:=1 to n do 
a [i]:= random(20)-10; [FONT=monospace][FONT=monospace]{здесь нужно в переменную массива ставить индекс яйчейки, сама переменная представляет набор из нескольких и необходимо указать в каую имеено класть данное значение}  [/FONT][/FONT]

for i:=2 to n do 
if a[i]>max then max:=a[i];

const n = 10;
var a:array [1..n] of real;
max:real;
imax:byte;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a [i]:= random(21)-10+random;
 write(a[i]:5:1);
end;
max := a[1];
imax:=1;
for i:=2 to n do
if max<a[i] then
 begin
 max:=a[i];
 imax:=i;
 end;
 writeln;
writeln('max=',max:4:1,' ego index ',imax);
readln;
end.

const n = 10;
var a:array [1..n] of real;
max:real;
imax:byte;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a [i]:= random(21)-10+random;
 write(a[i]:5:1);
end;
max := a[1];
imax:=1;
for i:=2 to n do
if max<a[i] then
 begin
 max:=a[i];
 imax:=i;
 end;
 writeln;
writeln('max=',max:4:1,' ego index ',imax);
readln;
end.