Не могу никак дорешать до конца! На CHAR!

[katya36]

{$APPTYPE CONSOLE}
{Найдите все cлова в предложении, которые содержат только заданные буквы.
Для определения буквенного состава используйте процедуру.}
program p101ex42;

const
  maxl=20;
  eot='@';
  n=10;   //eot-конец текста

type
  TString=array[1..maxl] of char;
  TLetters=array['a'..'z'] of boolean;

var
  txt: TString;
  N : integer;

  i:integer;
  Letters : TLetters;


{Ввод предложения}
procedure read_predl(var n:integer; var Pr:TString);
Var  i:integer;
Begin
  I:=0;
  Repeat
    repeat
      I:=i+1;
      read(Pr[i]);
    Until (i=maxl) or (txt[i]=eot);
    readln
  until (i=maxl) or (txt[i]=eot);
  If Pr[i]=eot then
    n:=i-1
  else
    n:=i;
End;

procedure vvod_bukv (var)  {здесь нужно веести те самые ЗАДАННЫЕ БУКВЫ}

{процедура печати слова}

{функция проверки слова как-то вот так:  repeat узнать очередную букву, и Если она маленькая латинская- то около неё поставить TRUE, Иначе например stop:=true }



{skip spaces}
procedure propusk_probelov (str:TString; n : integer; var i:integer);
begin
  {!!!!!}
  while (i<=n) and (str[i]=' ') do i:=i+1;
end;

procedure propusk_NE_probelov (str:TString; n : integer; var i:integer);
begin
  while (i<=n) and (str[i]<>' ') do i:=i+1;
end;

procedure obrabotka (str:P; n:integer; Letters : TLetters);
var i1, i2, l, j: integer; // первая и последняя буквы слова, l-длина слова
    Ok:boolean;
begin
  i:=1;
  while i<=n do
    begin
       propusk_probelov();
       i1:=i;
       propusk_NE_probelov();
       i2:=i-1;
       if 
    end;
end;

begin
end.

Подскажите пожалуйста как закончить задачку! Именно эти места, где комментарии(преподаватель подсказал что нужно добавить но КАК) никак не могу понять, как написать правильно!!!

[Stilet]

хм...
Функцию Pos учили?

[katya36]

Нет, ещё не проходили! У нас всё решается только forами repeatами whilами и т.п.))
И строки тоже ещё не проходили! Эта задачка на тип CHAR