Даны два слова одинаковой длины. Присвоить переменной К число, равное количеству попарно одинаковых букв.

[dimon_home]

Даны два слова одинаковой длины. Присвоить переменной К число, равное количеству попарно одинаковых букв.

[DM_bite]

program xd;
var s,s1: string;
    k,i: byte;
    begin
    k:=0;
    s:= 'helloworld';
    s1:= 'hello!!!!!';
    for i:= 1 to length(s) do
     begin
      if s[i]=s1[i] then inc(k);
     end;
     WriteLn(k);
     ReadLn;
     end.