Ajuda com programa em pascal

[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