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

Задача 21 Урок 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-ом массиве больше нет.

program u15z21;
type
  massiv = array[1..20] of integer;
var
  m, n: massiv;
  i, j: integer;
begin
  randomize();
  for i:=low(m) to high(m) do
  begin
    m[i] := random (50)-10;
    write (m[i], ' ');
  end;
  writeln();
  for i:=low(n) to high(n) do
  begin
    n[i] := random (50)-10;
    write (n[i], ' ');
  end;
  writeln();
  i:=3;
  j:=2;
  while i<=high(m) do
  begin
    if m[i] > n[j] then
      write (m[i], ' > ', n[j])
    else if m[i] < n[j] then
      write (m[i], ' < ', n[j])
    else
      write (m[i], ' = ', n[j]);
    i:=i+3;
    j:=j+2;
    writeln;
  end;
  readln();
end.