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

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.