все элементы заданного одномерного массива уменьшить на величину равную наименьшему элементу данного массива.(ПАСКАЛЬ)

var a: array[1..100] of integer; n, min, i: integer;begin   readln(n);   for i := 1 to n do      read(a[i]);   min := a[1];   for i := 2 to n do      if min > a[i] then         min := a[i];   for i := 1 to n do      a[i] := a[i] - min;   for i := 1 to n do      write(a[i], ' ');end.

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016begin  var a:=ArrRandom(ReadInteger('n='),10,99);  a.Println;  var m:=a.Min;  for var i:=0 to a.Length-1 do a[i]-=m;  a.Printlnend.Тестовое решение:n= 1390 37 52 21 77 74 75 75 43 98 92 16 9074 21 36 5 61 58 59 59 27 82 76 0 74