Определить значение наибольшего элемента массива заполненного 300 случайными положительными 3 значным числам и определить порядковый номер этого элемента

примени эту программу себе, тут и мах и мин 
program zadanie4; 
uses crt; 
var 
i:integer; 
max,min,maxi,mini:integer; 
a:array[1..10] of integer; 
begin 
clrscr; 
randomize; 
for i:=1 to 10 do 
a:=random(51); 
writeln(ischodni file); 
writeln(-----------------); 
for i:=1 to 10 do 
write(a:5); 
writeln; writeln; 
maxi:=1; max:=a[1]; 
for i:=2 to 10 do 
begin 
if a>max then 
begin 
max:=a; 
maxi:=i; 
end; 
end; 
mini:=1; min:=a[1]; 
for i:=2 to 10 do 
if a; 
end; 
write(maximalnoe = ); writeln(max); 
write(minimalnoe = ); writeln(min); 
write(maximalnoe i = ); writeln(maxi); 
write(minimalnoe i = ); writeln(mini); 
writeln(konec zadachi); 
readln; 
end.