Переписать элементы первого массива во второй в обратном порядке

uses crt;
const n=10;
var  x,y:array[1..n] of integer;
     i,imx:byte;
begin
writeln('Массив X:');
for i:=1 to n do
 begin
  x[i]:=i*i-4*i+3;
  write(x[i]:4);
 end;
writeln;
writeln('Массив Y:');
imx:=1;
for i:=1 to n do
 begin
  y[i]:=x[n-i+1];
  write(y[i]:4);
  if y[i]>y[imx] then imx:=i;
 end;
writeln;
write('Номер максимального=',imx);
end.

uses crt;
const n=10;
var  a:array[1..n,1..n] of integer;
     f:integer;
     i,j,k:byte;
begin
writeln('Матрица А:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    f:=1;
    for k:=1 to abs(j-4) do
    f:=f*k;
    a[i,j]:=abs((i*i-6*j+8)*f);
    write(a[i,j]:6);
   end;
  writeln
 end;
writeln;
writeln('Номера строк, содержащих более 3х четных элементов, кратных 3');
for i:=1 to n do
 begin
  k:=0;
  for j:=1 to n do
  if a[i,j] mod 6=0 then k:=k+1;
  if k>3 then write(i,' ');
 end;
end.

program lab3a;
uses crt;
var
x,y:array[1..100] of real;
n,i,f,t,l,k:byte;
c,d,e,h,a,b,s,sr,m,p,o:real;
begin
writeln('введите n');
readln(n);
writeln('введите b');
readln(b);
writeln('введите a');
readln(a);
h:=(b-a)/(n+1);
f:=1;
t:=1;
l:=1;
k:=1;
m:=0;
s:=0;
for i:=1 to n+1 do
begin
 x[i]:=a+(i-1)*h;
 if x[i]>2 then
  begin
   c:=Exp(3*ln(x[i]));
   d:=c+sin(3*abs(x[i])-1)/(1-sqr(cos(x[i])));
   e:=ln(exp(x[i]*ln(3))-9)/ln(2);
   y[i]:=d-e;
  end;
  s:=s+y[i];
 
end;
for i:=1 to n+1 do
if y[i]<y[t] then t:=i;
if (y[i]>y[t]) and (y[i]<y[k]) then k:=i;
for i:=1  to n+1 do
if y[i]>y[f] then f:=i;
if (y[i]<y[f]) and (y[i]>y[l]) then i:=l;
for i:=1  to n+1 do
 
for i:=1  to n+1 do
 
begin
sr:=s/n;
m:=sqr(y[i]-sr)/(n+1);;
m:=m/(n+1);
o:=sqrt(m);
end;
 
writeln;
writeln('Номер первого максимального y=',f);
writeln('Номер второго максимального y=',l);
writeln('Номер первого минимального y=',t);
writeln('Номер второго минимального y=',k);
writeln;
writeln('сумма y=',s:5:4);
writeln('среднее значение у=',sr:5:4);
writeln('M=',m:5:4);
writeln('D=',o:5:4);
writeln('Массив У:');
for i:=1 to n+1 do
begin
if i mod 5=0 then writeln(' y=',y[i]:5:4,' ') else write(' y=',y[i]:5:4);
end;
writeln;
writeln('Массив Х:');
for i:=1 to n+1 do
begin
if i mod 5=0 then writeln(' x=',x[i]:5:4,' ') else write(' x=',x[i]:5:4);
end;
end.