per la 2°
x viene dato in input e fai così:

for i:=1 to length(s) do
begin
if s[i]=x then
carattere:=s[i];
end;

carattere è una variabile che prende il valore di s quando il valore di quest'ultima è uguale a x.

ciao, spero di esserti stato d'aiuto.