Пожалуйста посчитайте написать программу по информатике на паскале.Создать с клавиатуры массив из трех чисел-первое число от 1 до 25, второе от 26 до 50, третье от 51 до 100. Создать второй массив случайным образом по таким же правилам. Сравнить эти числа и написать Как узнать сколько совпало

type mas=array[1..3] of integer;
var a,b:mas;
i,k:integer;
procedure proc(var x:mas);
var i:integer;
begin
x[1]:=random(25)+1;
x[2]:=random(25)+26;
x[3]:=random(50)+51;
for i:=1 to 3 do write(x[i],' ');
writeln;
end;
begin
randomize;
writeln('1-й массив:');
proc(a);
writeln('2-й массив:');
proc(b);
k:=0;
for i:=1 to 3 do
 if a[i]=b[i] then k:=k+1;
writeln('Число совпавших элементов = ',k);
end.

Пример:
1-й массив:
6 29 58
2-й массив:
21 29 63
Число совпавших элементов = 1