Объясните пожалуста, что не так?

[programming]

Ура! представляете, я сама сдела прогу и она пошла!Начала осваивать Паскаль=)

Вот дали еще одну (знаю, что для вас это слишком просто, но не судите строго.я только учусь) :

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

Я что-то написала, она даж запускается, но ответ не дает...

вот то что я сделала

Program strings;

uses crt;

var s1,s2:string;

s3:string;

i,n,l:integer;



begin

write('vvedite slovo1: ') ;

readln(S1);

write('vvedite slovo2: ');

readln(S2);

n:=0;

repeat

if s1[i]=s2[i]

then

begin s3:=copy(s1,i,1);

end

else begin

write(s3);

n:=length(s3);

end;

until i>length(s1);

writeln(n);

end.



Помогите исправить.