Дан двумерный массив N*N элементов. Обнулите первый минимальный элемент в указанной строке. Паскаль АВС

//PascalABC.NET 3.2 сборка 1318Var  Matrix:array of array of integer;  i,j,min,n,k,mini,minj:integer;beginreadln(n);setlength(Matrix,n+1);for i:=1 to n do  setlength(Matrix[i],n+1);writeln('First matrix:');for i:=1 to n do  begin    for j:=1 to n do      begin        Matrix[i,j]:=random(10);        write(Matrix[i,j]:4);      end;    writeln;  end;write('Введите строку:');readln(k);min:=integer.MaxValue;for i:=1 to n do  if min>Matrix[k,i] then    begin      min:=Matrix[k,i];      mini:=k;      minj:=i;    end;Matrix[mini,minj]:=0;writeln('Final matrix:');for i:=1 to n do  begin    for j:=1 to n do      write(Matrix[i,j]:4);    writeln;  end;end.Пример работы программы:3First matrix:   3   0   0   2   5   9   8   4   4Введите строку:3Final matrix:   3   0   0   2   5   9   8   0   4