Преобразование вещественных векторов

[max_scotch]

Прошу помощи в решении задачки на Паскале...


Вещественные векторы x (x1, x2, …, xN) и y (y1, y2, …, yN) преоб-разовать по правилу: большее из xi и yi принять в качестве нового значе-ния xi, а меньшее – в качестве нового значения yi (i=1, 2, …, N). Печатать преобразованные векторы x и y. Найти и напечатать произведение новых компонентов вектора x.

[tmtm]

program pas1;
uses crt;
var
 X, Y: array[1..20] of real;
 N, I: integer;
 P, K: real;
begin
 write('N=');
 readln(N);
 for I:=1 to N do
  begin
   write('X(',I,')=');
   readln(X[I]);
  end;
 for I:=1 to N do
  begin
   write('Y(',I,')=');
   readln(Y[I]);
  end;
 writeln('Massiv X');
 for I:=1 to N do
   write(X[I], ' ');
 writeln;
 writeln('Massiv Y');
 for I:=1 to N do
   write(Y[I], ' ');
 writeln;
 P:=1.0;
 for I:=1 to N do
 if X[I]<Y[I] then
  begin
   P:=P*Y[I];
    K:=X[I];
    X[I]:=Y[I];
    Y[I]:=K;
  end;
 writeln('Izmenen massiv X');
 for I:=1 to N do
   write(X[I], ' ');
  writeln;
 writeln('Izmenen massiv Y');
 for I:=1 to N do
   write(Y[I], ' ');
 writeln;
 writeln('Proizvedenie novykh komponent X: ', P:8:3);
 readln;
end.

как-то так...

[max_scotch]

Спасибо Вам tmtm