Correction d'exercice N°2 de Bac Blanc

Voici la correction d'ex 2. Vos commentaires S.V.P


program ex_ar;
uses wincrt;
var ch1,ch2:string;
function verif(ch1,ch2:string;i,j:integer):boolean;
begin
if (i=length(ch1)) and (ch1[i]=ch2[j]) then
verif:=true
else
if j>length(ch2) then
verif:=false
else
if ch1[i]=ch2[j] then
verif:=verif(ch1,ch2,i+1,j+1)
else
verif:=verif(ch1,ch2,1,j+1);
end;
begin
write('Donner ch1 ');
readln(ch1);
write('Donner ch2 ');
readln(ch2);
if verif(ch1,ch2,1,1) then
write(ch1,' existe dans ',ch2)
else
write(ch1,' n''existe pas dans ',ch2);
end.