Заданны массивы В(10) и С(15). Найти разность минимальных элементов массивов — Pascal(Паскаль)

uses crt;

var
  b: array [1 .. 10] of integer;
  c: array [1 .. 15] of integer;

procedure FillArray(var arr: array of integer);
var
  k: integer;
begin
  randomize;
  for k := Low(arr) to High(arr) do
    arr[k] := random(100);
end;

function SearchMin(arr: array of integer): integer;
var
  k, Min: integer;
begin
  Min := arr[1];
  for k := Low(arr) to High(arr) do
    if arr[k] then
      Min := arr[k];
  SearchMin := Min;
end;

begin
  ClrScr;
  FillArray(b);
  FillArray(c);
  writeln('MinB-MinC= ', SearchMin(b) - SearchMin(c));
  write('Press any key to EXIT...');
  readkey;

end.