Ввести строчку знаков потом один символ,найти есть ли знак в строке,если

Ввести строчку знаков потом один символ,определить есть ли символ в строке,если есть,то ввести номер позиции,где он встречается 1-ый раз
я здесь начал делать,но далее не знаю как допишите пожалуйста как надобно:
Program P1;
var S:string;n:chr;
i,j:integer;
begin
writeln
readln (S):
for S[j]=1 to lenght (S) do
if S[j]=n then