const
  row = 2;
  col = 2;

var
  arr: array[0..row, 0..col] of integer;
  arrCount: array of integer;
  arrNumber: array of integer;
  i: integer;
  j: integer;
  res: integer;

function findNumber(a: integer): integer;
begin
  var index: integer;

  for index := 0 to length(arrNumber) - 1 do
  begin
    if arrNumber[index] = a then
      Result := index;
  end;
  Result := -1;
end;

procedure addNumber(number: integer);
begin
  SetLength(arrNumber, length(arrNumber) + 1);
  arrNumber[length(arrNumber) - 1] := number;
  SetLength(arrCount, length(arrCount) + 1);
  arrNumber[length(arrCount) - 1] := 1;
end;

function findMaxNumber(): array of integer;
begin
  var index: integer;
  var max: integer;
  var res: array of integer;

  for index := 0 to length(arrCount) - 1 do
  begin
    if arrCount[index] > max then
    begin
      max := arrCount[index];
      SetLength(res, length(res) + 1);
      res[length(res) - 1] := arrNumber[index];
    end
    else if arrCount[index] = max then
    begin
      SetLength(res, length(res) + 1);
      res[length(res) - 1] := arrNumber[index];
    end;
  end;
  Result := res;
end;

begin
  Randomize;
  for i := 0 to row do
  begin
    for j := 0 to col do
    begin
      arr[i, j] := Random(2);
      write(arr[i, j]:5);
    end;
    writeln;
  end;

  for i := 0 to row do
  begin
    for j := 0 to col do
    begin
      res := findNumber(arr[i, j]);
      if res <> -1 then
      begin
        arrCount[res] := arrCount[res] + 1;
      end
      else
        addNumber(arr[i, j]);
    end;
  end;

  var ar := findMaxNumber();
  writeln('Result: ');
  for i := 0 to length(ar) - 1 do
    write(ar[i], ' ');
end.