Pascal/Turbo Pascal - Ayuda urgente

Mi pregunta es prescisa ç
¿cómo puedo crear un alogarítmo en turbo pascal para poder detectar numeros primos?
¿cómo puedo crear un alogarítmo que me permita ver si una palabra es polídroma o no(que se pueda leer en ambos sentidos o sea de izquierda a derecha como la palabra \"oso\" o en palabras completas como \"dabale arroz a la zorrra abad\" la idea es que el programa detecte si es polidroma o no?
desde ya gracias

el codigo para el programa de numeros primos es:
uses crt;
var n,i,re,c:integer;

begin
read(n);
for i := 1 to n do
begin
re := n mod 1;
if re = 0 then
c:= c+1;
end;
if c > 2 then
write('numero no es primo')
else
write('numero primo');
readkey;
end.

el otro te lo debo porque solo lo tengo para saber si un numero es palindromo o no. Me imagino que ha de ser igual pero utilizando matrices (asi es mas facil).

Para "detectar" si una palabra es palindromo tiene cierta complicación pero no es una cosa muy dificil, para detectar una frace como la que escribes encierra una complicación extra y es la de los espacios, linguisticamente un espacio no tiene valor pero informaticamente si lo tiene por tanto hay que suprimirlos. Este es mi codigo:
var
s,aux:string;
l,i:integer;
igual:boolean;

function trimspaces(s:string):string;
var
i:integer;
begin
i:=0;
repeat
inc(i);
if s[i]=#32 then delete(s,i,1);
until i>length(s);
trimspaces:=s;
end;

begin
readln(s);
i:=1;
aux:=trimspaces(s);
l:=length(aux);
igual:=true;
while (i<=l) and (igual=true) do
begin
if not(aux[i] = aux[l]) then igual:=false;
inc(i);
dec(l);
end;
if igual then writeln(s,' es palindromo.')
else writeln(s,' no es palindromo.');
end.
Saludos.