В какой из двух последовательностей встречается самое большое, а в какой - самое маленькое число?

var  x,y:array[1..100] of integer;
     i,nx,ny,min,max:integer;
     mi,ma:char;
begin
      Write('Razmer posledovatelnosti X = ');
       Readln(nx);
        Write('Razmer posledovatelnosti Y = ');
         Readln(ny);
          Writeln;
      max:=-100;
       min:=Maxint;
        Writeln('Posledovatelnosty X:');
         Writeln;
          Randomize;
           for i:=1 to nx do
            begin
              x[i]:=Random(100)-50;
              Write(x[i]:4);
              if x[i]<min then
               begin
                 min:=x[i];
                 mi:='X';
               end;
              if x[i]>max then
               begin
                 max:=x[i];
                 ma:='X';
               end;
            end;
            Writeln; Writeln;
             Writeln('Posledovatelnosty Y:');
              Writeln;
           for i:=1 to ny do
            begin
              y[i]:=Random(100)-50;
              Write(y[i]:4);
              if y[i]<min then
               begin
                 min:=y[i];
                 mi:='Y';
               end;
              if y[i]>max then
               begin
                 max:=y[i];
                 ma:='Y';
               end;
            end;
            Writeln; Writeln;
      Writeln('Max.element v posledovatelnosti ',ma);
      Writeln('Min.element v posledovatelnosti ',mi);
      Readln;
end.

const XY: array [Boolean] of Char = ('X','Y');
procedure MinMax(n: Integer; var mn, mx: Integer);
var x: Integer;
begin
  mn:=MaxInt; mx:=-MaxInt-1;
  for n:=1 to n do begin
    x:=-50+Random(101); Write(' ',x);
    if mn>x then mn:=x;
    if mx<x then mx:=x;
  end; WriteLn;
end;
var xmn, xmx, ymn, ymx: Integer;
begin
  Write('X:'); MinMax(5+Random(11),xmn,xmx);
  Write('Y:'); MinMax(5+Random(11),ymn,ymx);
  WriteLn('Максимум в ',XY[xmx<ymx],', минимум в ',XY[xmn>ymn]);
end.