Посчитать число одинаковых букв

[ValdisZ]

Составьте программу подсчета числа одинаковых букв, стоящих на одних и тех же местах в словах X и Y.

[NioTo]

var
X, Y: String;
i, MinLen: Integer;
Counter: Integer = 0;
begin
Write('Введите слово X: ');
ReadLn(X);
Write('Введите слово Y: ');
ReadLn(Y);
if Length(X) < Length(Y) then
MinLen := Length(X)
else
MinLen := Length(Y);
for i := 1 to MinLen do
if X[i] = Y[i] then
Inc(Counter);
WriteLn(Counter);
end.

[ValdisZ]

Спасибо Большое)