Pascal/Turbo Pascal - string pertenece a otro string

tengo que hacer este programa per lo he provado con "in" y no compila:
-Dados 2 strings, decir true/false en función de que el último caracter del primer string,
independientemente de mayúsculas i minúsculas, este dentro del segundo string.

Realmente, no me quedo muy claro lo que preguntas,pero supongo q es asi lo que queres
function BuscaCadena(cadena:string; cadena2:string):boolean;
var
existe:boolean;
long:byte;
i:byte;
a:char;
begin
a:=upcase(cadena2[length(cadena2)]);
existe:=false;
long:=length(cadena);
for i:=1 to long do begin
cadena[i]:=upcase(cadena[i]);
if cadena[i] = a then
existe:=true
end;
BuscaCadena:=existe
end;

O sino la otra posibilidad, que en vez de pasar otra cadena, pases un caracter como parametro, y dps cuando lo invoques hagas BuscaCadena(cadena1,cadena2[8])

Espero que sea lo q necesitabas, sino volve a preguntar :)

Un abrazoo

Hola mariano gracias por echarme un cable pero creo que no es exactamente lo que yo busco. Estoy empezando y por ejemplo lo del "for to do" aun no lo he dado en clase.
A mi me piden que de dos strings compruebe si el segundo contiene la ultima letra del primer string. Ej: casA y Arbol. la ultima letra de la primera palabra aparece en la segunda palabra. Yo lo he intentado y me ha salido una cosa asi, pero no funciona:


Program s13;
uses crt;
var v1,v2:string;

begin
readln(v1);
readln(v2);
if v1[length(v1)] in v2 then writeln('la ultima letra de la primera palabra pertenece a la segunda palabra') else writeln('no pertenece...');

readkey;
end.

AHhh! mucho mas simple entonces

begin
readln(v1);
readln(v2);
if v1[length(v1)] = v2[1] then
writeln( 'se encuenra en la segunda palabra')
else
writeln('No se encuentra');
readln
end.

Un abrazoo!!

Solo para explicar por qué falla el código que has posteado.

El operador "in" no sirve para cadenas, sirve para conjuntos (set of). Devuelve "true" si un elemento está dentro de un conjunto. Si no entiendes esto, no te preocupes, más adelante seguramente te lo enseñarán ;).