Упорядочить массивы y(N), y(N), N <= 350 по возрастанию суммы xi + yi

for i:=1 to n-1 do
for j:=i+1 to  n do
if x[i]+y[i]>x[j]+y[j] then
 begin
  t:=x[i];
  x[i]:=x[j];
  x[j]:=t;
  t:=y[i];
  y[i]:=y[j];
  y[j]:=t;
 end;

const max=350;
type mas=array[1..max] of integer;
var n:integer;
procedure massiv(var a:mas);
var i:integer;
begin
for i:=1 to n do
a[i]:=random(500);
end;
procedure print(var a:mas;s:string);
var i:integer;
begin
writeln(s);
for i:=1 to n do
write(a[i]:4);
writeln;
end;
var x,y:mas;
    i,j,t:integer;
begin
repeat
write('Введите размер массива от 2 до ',max,' n=');
readln(n);
until(n>1)and(n<=max);
massiv(x);
massiv(y);
print(x,'Исходный массив X');
print(y,'Исходный массив Y');
for i:=1 to n-1 do
for j:=i+1 to  n do
if x[i]+y[i]>x[j]+y[j] then
 begin
  t:=x[i];
  x[i]:=x[j];
  x[j]:=t;
  t:=y[i];
  y[i]:=y[j];
  y[j]:=t;
 end;
print(x,'Отсортированный массив Х');
print(y,'Отсортированный массив Y');
writeln('Суммы');
for i:=1 to n do
write(x[i]+y[i]:4)
end.

uses crt;
      const nmax=350;
      
type mas=array[1..nmax] of integer;
   var n,i,t,j:integer;
 var a,x,y:mas;
 begin
 repeat
     write('введите n от 2 до ',nmax,' n=');
readln(n);
 until(n>1)and(n<=nmax);
 writeln   (  'исходный X');
  begin
      for i:=1 to n do
       x[i]:=random(500);
        for i:=1 to n do
     write(x[i]:4, ' | ');
writeln;
     end;
writeln   (  'исходный Y');
      begin
      for i:=1 to n do
       y[i]:=random(500);
        for i:=1 to n do
     write(y[i]:4, ' | ');
writeln;
end;
 
 for i:=1 to n-1 do
      for j:=i+1 to  n do
    if x[i]+y[i]>x[j]+y[j] then
 begin
  t:=x[i];
  x[i]:=x[j];
  x[j]:=t;
  t:=y[i];
  y[i]:=y[j];
  y[j]:=t;
 end;
 writeln ('отсортированный X');
 for i:=1 to n do
     write(x[i]:4, ' | ');
 writeln ;
 
 writeln ('отсортированный Y');
  for i:=1 to n do
     write(y[i]:4, ' | ');
 writeln ;
 writeln('суммы');
  for i:=1 to n do
        write(x[i]+y[i]:4, ' | ')
 end.