Вычислить минимальный элемент массива и его порядковый номер

program pr;
const
n=40;
var
i,min,index:integer;
a:array[1..n]of integer;
begin
min:=0;
min:=a[1];
for i:=1 to n do begin
a[i]:=-10+random(21);
write(a[i]:3);
if a[i]<min then
begin
min:=a[i];
index:=i;
end;
end;
writeln;
writeln('Минимальный элемент: ',min,' имеет порядковй номер: ',index);
end.

var
 min,r : integer;
 mas: array [1..40] of integer;
 i: byte;
 
begin
 for i:=1 to 40 do
   mas[i]:=random(100)+1;
 
 writeln('Массив');
 for i:=1 to 40 do
 begin
  if i=1 then write('[');
  write(mas[i]);
  if i<>40 then write(',') else writeln(']')
 end;
 
 min:=mas[1];
 for i:=2 to 40 do
   if mas[i]<min then
     begin
       min:=mas[i];
       r:=i
     end;
 
  writeln('Минимальный элемент C[',r,'] = ',min);
 
end.