В каждом из массивов найти наименьшее значение и прибавить его ко всем элементам массивов

Var
  a, b: Array of Int64;
  min, i: Int64;
  
Begin
  Writeln(a);
  Writeln(b);
  min := a.Min;
    For i := Low(a) to High(a) do 
      Inc(a[i], min);
  min := b.Min;
    For i := Low(b) to High(b) do 
      Inc(b[i], min);
  Writeln(a);
  Writeln(b);
End.

{$reference System.Core.dll}
uses System.Linq, Arrays;
var 
  a : array of integer := Arrays.CreateRandomIntegerArray(10);
  b : array of integer := Arrays.CreateRandomIntegerArray(20);
begin
  a.Writeln(',');
  a := System.Array.ConvertAll(a, (x : integer) -> x + a.Min());
  a.Writeln(',');
  
  b.Writeln(',');
  b := System.Array.ConvertAll(b, (x : integer) -> x + b.Min());
  b.Writeln(',');
end.

uses System.Linq;
var
  a,b:array of integer;
  n,ma,mb:integer;
begin
  randomize;
  repeat
    write('N=');
    readln(n);
  until n>0;
  a:=Enumerable.Range(0,n).Select(i->random(100)).ToArray();
  ma:=a.Min();
  b:=Enumerable.Range(0,n).Select(i->random(100)).ToArray();
  mb:=b.Min();
  writeln('A:',a,NewLine,'Минимальное значение=',ma);
  writeln('B:',b,NewLine,'Минимальное значение=',mb);
  a:=a.Select(i->i*ma).ToArray();
  b:=b.Select(i->i*mb).ToArray();
  writeln('Преобразованные массивы:');
  writeln('A:',a);
  writeln('B:',b);
end.

/// Программа для решения задачи:
/// Заданы два массива А(N) и В(M).
/// В каждом из массивов найти наименьшее значение и прибавить его ко всем элементам массивов.
///  На печать вывести исходные и преобразованные массивы.
/// =================== Задание выполнила Лидия188