Определить порядковые номера, считая от начала текста, заданных символов

program W3;
uses crt;
var b,s,c:string;
     K,I, ps:integer;
begin
clrscr;
 writeln ('Введите текст'); readln (s);
 writeln ('Введите символ который нужно найти '); readln (b);
 k:=0; c:='';
 ps:=pos(b,s);
 i:=0;
 while ps>0 do
 begin
  k:=k+1;
  i:=i+ps;
  c:=c+copy(s,1,ps-1)+' '' ' +b+ ' '' ';
  delete(s,1,ps+length(b)-1);
  writeln('Найден символ на  ' ,i, ' позициях');
  ps:=pos(b,s);
 end;
 c:=c+s;
 writeln('Символ найден  ',k,' раз(а)');
 writeln(c);
 readln;
end.

var s, c: string;
    i, j, k: integer;
begin
  repeat
    writeln('Введите строку:');
    readln(s);
    if length(s) = 0 then writeln('Введена пустая строка, повторите ввод.')
  until length(s) > 0;
  repeat
    writeln('Введите строку из символов, которые нужно найти:');
    readln(c);
    if length(c) = 0 then writeln('Символы не были введены, повторите ввод.')
  until length(c) > 0;
  k := 0;
  writeln('Позиции символов в строке:');
  for i := 1 to length(s) do {цикл по строке}
    for j := 1 to length(s) do {проверяем, равен ли очередной символ строки одному из заданных}
      if s[i] = c[j] {если равен}
        then begin
          write(i, ' '); {печатаем его позицию}
          inc(k); {счётчик позиций + 1}
          break {досрочно выходим из цикла, дальше искать не нужно}
        end;
  writeln;
  if k = 0 {Если символы не найдены}
    then write('Заданные символы в строке не найдены') {то печатаем, что не найдены}
    else write('Общее количество заданных символов в строке: ', k); {иначе печатаем их количество}
  readln
end.

var s, c: string;
    i, k: byte;
    p: set of byte;
    f: set of char;
begin
  repeat
    writeln('Введите строку:');
    readln(s);
    if length(s) = 0 then writeln('Введена пустая строка, повторите ввод.')
  until length(s) > 0;
  repeat
    writeln('Введите строку из символов, которые нужно найти:');
    readln(c);
    if length(c) = 0 then writeln('Символы не были введены, повторите ввод.')
  until length(c) > 0;
  f := []; {формируем множество символов для поиска}
  for i := 1 to length(c) do include(f, c[i]);
  p := []; {позиции символов пока не найдены}
  for i := 1 to length(s) do if s[i] in f then include(p, i); {ищем позиции}
  if p = [] {если позиции не найдены,}
    then write('Заданных символов в строке нет.') {то заданных символов нет}
    else begin {иначе выводим позиции символов и их количество}
      writeln('Позиции символов в строке:');
      k := 0;
      for i := 1 to 255 do {перебор возможных позиций}
        if i in p {если позиция есть в множестве,}
          then begin
            write(i, ' '); {то печатаем её}
            inc(k) {и счётчик позиций + 1}
          end;
      writeln;
      write('Общее количество заданных символов в строке: ', k)
    end;
  readln
end.

    for j := 1 to length(с) do {проверяем, равен ли очередной символ строки одному из заданных}

    for j := 1 to length(c) do {проверяем, равен ли очередной символ строки одному из заданных}