leandropsy

Segue abaixo uma função em Pascal pra verificar se duas palavras ou frases são palíndromas,o enunciado completo é o seguinte: Escreva uma função booleana recursiva para verificar se uma palavra ou sentença é palíndroma. Obs: uma palíndroma é uma palavra ou sentença que possui o mesmo significado quando lida de trás pra frente e de frente pra trás. Exemplo: “Socorram me subi no onibus em Marrocos”. ---------------------------------------------------------------------------------------------------------------------- program copia; uses crt; const max=100; type vetor=array[1..max]of char; var vet1:string; var vet2:string; var n,m:integer; var result:boolean; Function Length(v2: string): integer; function Comp_Rec(v1:vetor;v2:vetor;n:integer;m:integer):boolean; begin Comp_Rec:=true; if(Comp_rec<>false)and(m>=1)then begin if(v1[n]<>v2[m])then begin Comp_Rec:=false; end else if(v1[n]=v2[m])then begin n:=n+1; m:=m-1; Comp_Rec(v1,v2,n,m); Comp_Rec:=true; end end; end; begin write('digite a primeira frase:'); readln(vet1); write('digite a segunda frase:'); readln(vet2); m:=Lenght(vet2); n:=1; result:=Comp_Rec(vet1,vet2,n,m); if(result=true)then write('as frases são palíndromas!') else write('as frases não são palíndromas!'); readkey; end. --------------------------------------------------------------------------------- alguém pode me dar uma ajuda?Precisando dessa função urgentemente Obrigado