Ввести два массива, состоящие из разного количества элементов. Найти, на сколько элементов один массив больше другого.

program z1;const nmax[100];var a,b:array of integer[1..nmax];var i,j:integer;begini=1;while not eol dobeginread(a[i]);i++;end;readln(); j=1;while not eol dobeginread(a[j]);j++;end;write(abs(j-i));end.