Заданы 2 одномерных массива x и y по 20 элементов в каждом. Преобразовать массивы по правилу: большее из значений элементов Xi and Yi принять в качестве нового значения элемента Xi, а меньшее - в качестве нового значения элемента Yi. Преобразованные массивы вывести на экран.

Вроде так:

Uses
   Crt;
Const
   N = 20;
Var
   i, MinX, MinY, MaxX, MaxY, Temp :Integer;
   X :Array[1..N] Of Integer;
   Y :Array[1..N] Of Integer;

Procedure WriteArray(x : Array Of Integer; Dim :Integer);
Var
   i :integer;
Begin
   For i :=1 To Dim Do Write(X[i]:2,' ');
   WriteLn;
End;

Begin
   ClrScr;
   Randomize;
   WriteLn('Start Array');
   For i := 1 To N Do
   Begin
      X[i] := Random(100);
      Y[i] := Random(100);
   End;
   WriteArray(X, N);
   WriteArray(Y, N);
   For i := 1 To N Do
   Begin
      If X[i] < Y[i] Then
      Begin
         Temp := X[i];
         X[i] := Y[i];
         Y[i] := Temp;
      End;
   End;
   WriteLn('New Array');
   WriteArray(X, N);
   WriteArray(Y, N);
   ReadKey;
End.