В одномерном массиве из 10 элементов определить местоположение минимального элемента

var
  a:array[1..10]of integer;
  i,min,tempi:integer;
begin
  writeln('Èñõîäíûé ìàññèâ');
  write('[ ');
  for i:=1 to 10 do
  begin
    a[i]:=random(8)-4;
    if i=1 then
    begin
      min:=a[i];
      tempi:=i
    end;
    if a[i]<min then
    begin
      min:=a[i];
      tempi:=i
    end;
    write(a[i],' ')
  end;
  writeln(']');
  for i:=1 to tempi-1 do
    a[i]:=0;
  writeln('Ïîëó÷åííûé ìàññèâ');
  write('[ ');
  for i:=1 to 10 do
    write(a[i],' ');
  writeln(']')
end.

var a:array[1..10, 1..10] of integer;
    i, j,min, posI, posJ:integer;
 
begin
min:=a[1,1]
  for i:=1 to 10 do
  for j:=1 to 10 do
    begin
      a[i,j]:=random(100)-50;
      if a[i,j] < min then
       begin
        min:=a[i,j]; 
        pos:=i;
       end;
    end;
 
    for i:=1 to posI  do
    for j:=1 to posJ do
     a[i,j]:=0;
 
  writeln('минимальный элемент: ',min,' находиться в ',posI,' строке ',posJ, ' ,столбце');
  for i:=1 to 10 do
  for j:=1 to 10 do
     write(a[i, j],'  ');

a:array[1..10] of integer; {одномерный массив}
a:array[1..10,1..10] of integer; {двумерный массив}