Question

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

Answer 1

Лучше использовать Pos(что ты ищешь,строка в которой ищешь)

var a,b:String;
var i:Integer;
begin
Read(a,b);
i:=Pos(b,a);
if i = 0 then
WriteLn('Не найден.')
else
WriteLn(i);
end.

Answer 2

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите строку:');
  var c:=ReadlnChar('Введите искомый символ:');
  var p:=s.IndexOf(c);
  if p>=0 then Writeln('Первое вхождение в позиции ',p+1)
  else Writeln('Символ в строке не найден')
end.

Примеры
Введите строку: Информатика
Введите искомый символ: а
Первое вхождение в позиции 7

Введите строку: лентяй
Введите искомый символ: и
Символ в строке не найден