Сравнение двух строк

[rick]

Здравствуйте. Необходимо сравнить две строки одинаковой длинны и выдать количество символов, которые совпадают не только по значению, но и по позиции в этих строках. например: пароход и проходы - одинаковых символов: 1 - "п"

Добавлено через 34 минуты и 57 секунд:
Проблема решена

Код:

var
s1,s2:string;
i, count:integer;
begin
count:=0;
s1:='1234';
s2:='3231';
for i:=1 to length(s1) do
if s1[i]=s2[i] then 
count:=count=1;
end;

[RXL]

И в чем вопрос?
Или ты хочешь, чтобы за тебя решили? Тогда тема - кандидат в мусор.