Як реалізуються математичні моделі в електронных таблицях?

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
  a: array of integer;
  i, n, min, max, imax, imin: integer;

begin
  write('Число элементов в массиве ');readln(n);
  setlength(a, n);
  min := maxint;max := -maxint;
  for i := 0 to n - 1 do
  begin
    a[i] := random(101) - 50;
    if a[i] > max then begin
      max := a[i];imax := i;
    end;
    if a[i] < min then begin
      min := a[i];imin := i;
    end;
    write(a[i]:4);
  end;
  writeln;
  writeln('min = ',min,'  max = ',max);
  //меняем местами max и min и выводим массив
  swap(a[imax], a[imin]);
  for i := 0 to n - 1 do write(a[i]:4);
end.

Тестовое решение:
Число элементов в массиве 10
 -19 -14 -44  -3  -4 -46  -1 -39  13  32
min = -46  max = 32
 -19 -14 -44  -3  -4  32  -1 -39  13 -46

Var a:array[1..100,1..100] of integer;                     
            N,M,i,j,min,kmin:integer;
begin
readln(N,M);
min:=10000;
kmin:=0;     
for i:=1 to N do begin           
  writeln();         
      for j:=1 to M do begin           
               a[i,j]:=random(50);
                 write(a[i,j],'  ');         
               if min = a[i,j] then
                            kmin:=kmin+1           
               else if min > a[i,j] then begin
                                        kmin:=1; min:=a[i,j];
                            end;         
          end;     
end;
writeln();
write(min,' ',kmin);
readln();
end.