В строке и в векторе из 10 компонентов подсчитать количество элементов с одинаковыми порядковыми номерами

program netip_param;
type
  Vector = array[1..10] of integer; { имеются 10 компонентов}
var
  mas:string[10]; {массив строк}
  mas2:vector;   {массив целых чисел}
  i,sum:integer;
 
procedure Pro(var M;M2:integer);
var
  am:array[1..10] of char absolute M;
  am2:array[1..10] of integer absolute M2;
begin
for i:=1 to 10 do
begin
sum:=sum+1;
end;
end;
 
begin
sum:=0;
Pro(mas,mas2);
writeln(sum);
readln;
readln;
end.

procedure Pro(var M, M2);

...........
procedure Pro;
................
begin
  sum:=0;
  Pro;
  writeln(sum);
  readln;
  readln;
end.

type
  vector  = array[1..10] of integer;
  tstring = array[1..10] of char;
var
  v: vector = (97, 67, 70, 33, 48, -100, -65, 80, 90, 42);
  s: tstring = 'abc134cf67';

program Compare;
 
type
  vector  = array[1..10] of byte;
  tstring = array[1..10] of char;
 
  function CountSameElements(var a, b; n: integer): integer;
  type
    TTypeCast = array[0..1000] of byte;
  var
    i, Count: integer;
  begin
    Count := 0;
    for i := 0 to n - 1 do
      if TTypeCast(a)[i] = TTypeCast(b)[i] then
        Inc(Count);
    CountSameElements := Count;
  end;
 
var
  v: vector = (97, 67, 70, 33, 48, 49, 65, 80, 90, 42);
  s: tstring = 'abc134cf67';
begin
  writeln(CountSameElements(v,s,10));
end.

type
  TVector = array [1..10] of Integer;
 
function CountEq(var v, s): Integer;
var
  vv: TVector absolute v;
  ss: String absolute s;
  i, r: Integer;
begin
  r:=0; i:=Length(ss);
  if i>10 then i:=10;
  for i:=1 to i do
    if vv[i]=Ord(ss[i]) then Inc(r);
  CountEq:=r;
end;