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

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