在线等：马上给分：相同长度的字符串比较问题

Question

相同长度的字符串按从左到右进行比较，看看相应的位置有几个不同！

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
  i:integer;
  s1,s2:string;
begin
  s1 := 'ABCDEFGHIJKLMNOPQ';
  s2 := 'ABCDEF9HIJ8LMN7PQ';
  for i := 0 to Length(s1)-1 do
  begin
    if s1[i]=s2[i] then
      Memo1.Lines.Add(s1[i])
    else
      Memo2.Lines.Add(s2[i]);
  end;
end;