Задача на строки

[diekster]

Здрасте задали вот такую задачку:

Даны 3 строки вывести символы которые встречаются в первой и третей строках и не встречаются во второй.

Сам решал но у меня выводит последний символ строки. Кто сможет подправьте код пожалуйста:

s1:=edit1.text;
     s2:=edit2.text;
     s3:=edit3.text;
     ls1:=length(s1);                                  
     ls2:=length(s2);                                    
     ls3:=length(s3);                                     
     max:=0;
     begin
     if ls1>ls2 then
        max:=ls1
        else
        if max<ls2 then
        max:=ls2
     end;
     if max<ls3 then
        max:=ls3;
     for i:=1 to max do
         begin
              if ((s1[i]=s3[i])and(s1[i]<>s2[i])and(s3[i]<>s2[i]))then
              rez[i]:=s1[i]
              else
              edit4.text:='Таких Чисел Нет!';
         end;
         edit4.text:=rez;

end;

Как решал задачу , нашел самую длинную строку (переменная MAX) потом начал по символьно сравнивать каждую строку если i-тый элемент первой строки равен i-тому элементу третей строки,и i-тый элемент первой и третей строки не равен i-тому элементу второй строки то вывести этот символ в поле edit4.text Язык программирования PASCAL ABC

[Plague]

на вскидку:

var s1,s2,s3,a:string;
    i:integer;
begin
  readln(s1);
  readln(s2);
  readln(s3);
  a:='';
  for i:=1 to length(s1) do
    if (pos(s1[i],s3)>0)and(pos(s1[i],a)=0) then
      a:=a+s1[i];
  i:=1;
  writeln(a); // встречаются в первой и третьей строке
  repeat
    if pos(a[i],s2)>0 then delete(a,i,1) else inc(i);
  until i>length(a);
  writeln(a); // не встречаются во второй
end.