Выделение троичного чила кратного 3, Pascal Опции

[Flyer]

Помогите пожалуйста решить задачу выделения троичного числа на паскале.Програма должна быть написана на стандарте языка. Так же нельзя использовать массивы и строки....
Обрабатываемый текст вводиться с клавиатуры. Пример:
qjhjereh 1231 1100 sdhf1231 hjh110
Результат: 1100
Заранее благодарен...

[klem4]

uses crt;

type

  PList = ^TList;

  TList = record
    Data: Char;
    Next: PList;
  end;

  TStack = Object
    public
      constructor Create;
      destructor Free;
      procedure Push(value: Char);
      procedure DisplayPart(_from, _to: PList);
      procedure Main;
    private
      First: PList;
  end;


constructor TStack.Create;
begin
  First := nil;
end;

destructor TStack.Free;
var
  R, T: PList;
begin

  R := First;

  while (R <> nil) do begin
    T := R^.Next;
    Dispose( R );
    R := T;
  end;

end;

procedure TStack.Push(value: Char);
var
  R, T: PList;
begin

  GetMem(R, sizeof(TList));

  R^.Data := value;
  R^.Next := nil;

  if First = nil then First := R

   else begin

    T := First;

    while (T^.Next <> nil) do T := T^.Next;

    T^.Next := R;

  end;

end;

procedure TStack.DisplayPart(_from, _to: PList);
var
  R: PList;
begin

  R := _from;

  writeln;

  while (R <> nil) and (Integer® <= Integer(_to)) do begin
    write(R^.Data);
    R := R^.Next;
  end;

end;

procedure TStack.Main;
var
  i, f, t: PList;
  ch: Char;
  bad: Boolean;
begin

  repeat
    ch := readkey;
    if ch <> #13 then begin
      write(ch);
      Push(ch);
    end;
  until ch = #13;

  writeln;

  i := First;

  while (i <> nil) do begin
    while (i <> nil) and (i^.Data = ' ') do i := i^.Next;
    if i <> nil then begin
      f := i;
      bad := false;
      while (i <> nil) and (i^.Data <> ' ') do begin
        if not (i^.Data in ['0'..'2']) then bad := true;
        i := i^.Next;
      end;
      if not(bad) then DisplayPart(f, i);
    end;
  end;

end;

var
  S: TStack;

begin
  clrscr;

  S.Create;
  S.Main;
  S.Free;

  readln;
end.