Паскаль: Даны два слова одинаковой длины. Найти количество попарно одинаковых букв​

Const n=6; m=4;
var 
a:array[1..n,1..m] of integer;
i,j,c:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
  a[i,j]:=random(50);
  write(a[i,j]:4);
  end;
  writeln;
 end;
for j:=1 to m do
 begin
 c:=a[3,j]; a[3,j]:=a[5,j]; a[5,j]:=c;
 end;
writeln('Полученный массив:');
for i:=1 to n do
 begin
 for j:=1 to m do write(a[i,j]:4);
 writeln;
 end;
end.

Пример:
Исходный массив:
  25   4  33  17
  19  23  42   9
  36  40   1  48
  21  44  13  18
  38  29   8   7
  24  13   5  13
Полученный массив:
  25   4  33  17
  19  23  42   9
  38  29   8   7
  21  44  13  18
  36  40   1  48
  24  13   5  13

+ в большенстве форматов можно править
+ можно скопировать сколько угодно раз
+ можно пересылать по электронной почте и тп.
+ можно распечатать
+ в большенстве форматов можно покопировать по частям
+ можно перевести с с электронного переводчика
+ не занимает много физического места
+ меньше подвержен порче от физических факторов (типа помять, порвать, ...)

- требует некого устройства для чтенья
- требует электричества/энергии для просмотра
- нельзя подтереться в туалете, разжечь огонь, написать заметку, завернуть рыбу
- изза копирования может иметь кучу различных вариантов и нужно дополнительно выяснять, где последние правки, а что есть устаревшая копия, мердж и тп
- трудно уследить за распрастранением документа