Задачка в Delphi

[Lady IcE]

Хелп! о_О"
Задан символьный массив S(n), n<=1000. Разработать программу, которая печатает в лексикографическом порядке все цифры, расположенные между первым и последним двоеточием. Если в наборе менее двух двоеточий или нет цифр, то напечатать соответствующее сообщение.

Буду очень благодарна ^___^
Желательно написать весь код программы от procedure и до end а не только серединку оО.

[Alex_FF]

program Project7;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  Len = 1000;

var
  S: Array[1..Len] of Char;
  R: Set of 0..9;
  N, I, J, First, Last: Integer;
  F, F1, F2: Boolean;
begin
  N := 0;
  while not EOLn do
  begin
    Inc(N);
    Read(S[N]);
  end;
  I := 1;
  J := N;
  F1 := False;
  F2 := False;
  while (I <= N) and (J >= 1) do
  begin
    if (S[I] = ':') and (not F1) then
    begin
      F1 := True;
      First := I;
    end;
    if (S[J] = ':') and (not F2) then
    begin
      F2 := True;
      Last := J;
    end;
    if F1 and F2 then Break;
    Inc(I);
    Dec(J);
  end;
  if First = Last then
    WriteLn('мало скобок')
  else
  begin
    R := [];
    F := False;
    for I := First + 1 to Last - 1 do
      if S[I] in ['0'..'9'] then
      begin
        Include(R, Ord(S[I]) - Ord('0'));
        F := True;
      end;
    if not F then WriteLn('нет цифр')
    else
      for I := 1 to 9 do
        if I in R then Write(I, ' ')
  end;
  ReadLn;
  ReadLn;
end.