Действительные векторы Х(х1,х2,…,х50) и Y(y1,y2,…,y50) изменить правилом: большую за компонент xi и yi считать новыми значениями xi, меньшую — считать новым значением yi — Pascal(Паскаль)

Program zad;
Uses Crt;
const n=50;
type vector=array[1..n] of real;
var
k:integer;
x,y:vector;
procedure coord(var x,y:vector);
 var
  k:integer;
  a:real;
   begin
    for k:=1 to n do begin
     if x[k]<y[k] then begin
       a:=x[k];
        x[k]:=y[k];
          y[k]:=a;
           end;
            end;
              end;
begin
Clrscr;
for k:=1 to n do 
readln(x[k],y[k]);
coord(x,y);
readln;
end.