Переписать элементы массива Х в массив У в обратном порядке.Вывести оба массива

uses crt;
const nmax=100;
var x,y:array[1..nmax] of integer;
    n,m,i,imn:byte;
begin
randomize;
repeat
write('Размер массива X от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив X');
for i:=1 to n do
 begin
  x[i]:=-25+random(51);
  write(x[i]:4)
 end;
writeln;
writeln('Массив Y');
imn:=1;
for i:=1 to n do
 begin
  y[i]:=x[n-i+1];
  write(y[i]:4);
  if y[i]<y[imn] then imn:=i
 end;
writeln;
write('Наименьший элемент=',y[imn],' его индекс=',imn);
end.

uses crt;
const nmax=20;
var x:array[1..nmax,1..nmax] of integer;
    m,n,i,j,imx:byte;
    sm,mx:integer;
begin
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  sm:=0;
  for j:=1 to n do
   begin
    x[i,j]:=random(20);
    write(x[i,j]:4);
    sm:=sm+x[i,j];
   end;
  if i=1 then
   begin
    mx:=sm;
    imx:=1
   end
  else if sm>mx then
   begin
    mx:=sm;
    imx:=i
   end;
  writeln;
 end;
write('Максимальная сумма=',mx,' в строке ',imx);
end.