строки Опции

[qweds]

Задана строка s
задан массив букв m
----------------------
Найти номера букв в строке s которых нет в массиве m (пробелы не в счет).

[volvo]

из кода видно, что это неправильный подход

Конечно, неправильный... Надо же было додуматься, работать только по ветке Else... Вот так не пробовал:

for j:=1 to length(s) do begin
  if  s[j] <> ' ' then begin
    found := false; { <--- Надо запоминать, было ли найдено что-то в массиве или нет }
    for i:=1 to v do begin
      found := false or (m[i] = s[i]);

    if not found then
      writeln('nedopustimyi symvol ',s[j], ' na pozicii' , j);
  end;

?