Задача 17 Урок 15

Задача 17 Урок 15:

Даны два массива по 20 элементов каждый (заполните случайными числами, так чтобы среди элементов массива при очередном запуске программы могли встретиться и отрицательные и положительные числа).
Сравните каждый 3-ий элемент 1-ого массива с каждый 2-ым элементов 2-ого массива - сравнение проводите пока не закончится та выборка, которая короче.

Например пусть мы имеем два массива (запишу лишь начальные элементы):

1 | 2 | -10 | 5 | 0 | 12 | 2 | 8 ....
0 | 3 | 4 | 9 | 7 | 5 | -8 | 3.....

для них программа должна вывести:

-10 меньше 3
12 больше 9

- других сравнений не последует, так как новых из "каждых третьих элементов" в 1-ом массиве больше нет.

var i, j: integer;
    x, y: boolean;
    a, b: array [1..20] of integer;
begin
   randomize();
   repeat
    for i := 1 to 20 do a[i] := random(41) - 20;
    write('Массив 1: ');
    for i := 1 to 20 do write(a[i], ' ');
    writeln();
    for i := 1 to 20 do
     begin
      if a[i] > 0 then x := true;
      if a[i] < 0 then y := true;
     end;
   until x and y;
   x := false;
   y := false;
   repeat
    for i := 1 to 20 do b[i] := random(41) - 20;
    write('Массив 2: ');
    for i := 1 to 20 do write(b[i], ' ');
    writeln();
    for i := 1 to 20 do
     begin
      if b[i] > 0 then x := true;
      if b[i] < 0 then y := true;
     end;
   until x and y;
   i := 3;
   j := 2;
   while i < 20 do
    begin
     if a[i] > b[j] then writeln(a[i], ' больше ', b[j])
     else
      if a[i] < b[j] then writeln(a[i], ' меньше ', b[j])
      else writeln(a[i], ' равно ', b[j]);
     i += 3;
     j += 2;
    end;
   readln();
end.