примени эту программу себе, тут и мах и мин 
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.

const

  n = 300;

var

  i, max:integer;

  a:array[1..n] of integer;

begin

  randomize;

  writeln('Исходные числа');

  max := 1;

  for i := 1 to n do

  begin

    a[i] := random(900) + 100;

    write(a[i], ' ');

    if i mod 30 = 0 then

      writeln;

    if a[max] < a[i] then

      max := i;

  end;

  writeln('Наибольшим являемся элемент ', max, ' значение которого ', a[max]);

end.