В двумерном массиве из 10 элементов определить местоположение минимального элемента .Обнулить элементы стоящие до него , но не сам этот элемент — Pascal(Паскаль)

var
    a:array[1..10, 1..10] of integer;
    i, j,min, pos, 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],'  ');
end.