Ввести строку символов затем один символ,определить есть ли символ в строке,если есть,то ввести номер позиции,где он встречается первый раз
я тут начал делать,но дальше не знаю как допишите пожалуйста как надо:
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