Из массивов X и Y построить матрицу так, чтобы элементы Х были расположены на главной диагонали и выше нее...

begin
  var X := ReadArrInteger(ReadlnInteger);
  var Y := ReadArrInteger(ReadlnInteger);
  var K := Round(sqrt(X.Length+Y.Length));
  var A := MatrGen(
    K,K,
    (i1,i2)->
    x<=y?
    X[0]:
    Y[0]
  );
  A.Print(6);
end.

begin
  MatrGen(
    3,4,
    (x,y)->
    (x,y)
  ).Print
end.

Program matr;
Var X: array[1..100] of integer;
    Y: array[1..100] of integer;
    A: array[1..100,1..100] of integer;
    n, s, ss, sn, j, i, p, l, K, m: integer;
Begin
  Write('Введите размерность массива X:');
  Readln(n);
  Writeln('Введите массив:');
  sn := 0;
  for i:= 1 to n do
    begin 
      Read(X[i]);
      sn := sn + X[i];
    end; 
  Write('Введите размерность массива Y:');
  Readln(s);
  Writeln('Введите массив:');
  ss := 0;
  for j:= 1 to s do
    begin
      Read(Y[j]);
      ss := ss + Y[j];
    end; 
  K := round(sqrt(s+n));
  p := sn/n;
  l := ss/s;
  for m := 1 to K do
  A[m] := 
 
End.

  ........
K := round(sqrt(s+n));
 Writeln('Матрица А: ');
  for j := 1 to K do
    begin
      for i := 1 to K do
        begin
          if j <= i then
          m := X[i]
          else p := Y[j];
        end;
      writeln(A[m,p]);  
    end; 
End.