Ввести два массива, состоящие из различного количества частей. Отыскать, на сколько

Введем следующие обозначения: a - массив из n элементов; a[i] - значения элементов массива a; b - массив из k частей; b[i] - значения частей массива b;  c и d количество частей массивов a и b соответственно, которые будут подсчитываться в процессе исполненья программки. Будем использовать оператор цикла с параметром for. Тогда программка на языке программирования Pascal ABC может выглядеть так:

program zadaca1;

uses crt;

const n=2; const k=4;

var i, c, d: integer;

a:array[1..n] of integer;

b:array[1..k] of integer;

begin

c:=0; d:=0;

for i:=1 to n do  begin

writeln (vvedite znachenie a[i]:);

readln(a[i]);

c:=c+1;

end;

for i:=1 to n do

write(a[i], );

writeln;

writeln(c=, c);

for i:=1 to k do  begin

writeln (vvedite znachenie b[i]:);

readln(b[i]);

d:=d+1;

end;

for i:=1 to k do

write(b[i], );

writeln;

writeln(d=, d);

if cgt;d then writeln(massiv a bolshe masiva b na , c-d)

else writeln(massiv b bolshe masiva a na , d-c);

end.