Дана строка символов, содержащая слова

[Alexey1002]

Здравствуйте. Помогите пожалуйста с кодом. Считает слова, которые ввожу в строку, но не получается сделать так, чтобы после задания мной длины слов считал слова именно нужной длины.
Задание: Дана строка символов, содержащая слова. Используя функцию, определить количество слова, имеющих заданную длину n.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  var
    str: string;
    i, count, n: byte;
    flag: boolean;
begin
Writeln('Vvedite slova v stroku cherez probel (V konce ENTER):');
    readln(str);
    Writeln('Zadaem dlinu slov, kol-vo kotorih nado nayti:');
    readln(n);
    count:=0;
    flag := false;
    for i:=1 to length(str) do begin
        if (str[i] <> ' ') and (flag = false) and (length(str[i])=n) then begin
                   count := count + 1;
            flag := true;
        end
        else
            if str[i] = ' ' then
                flag := false;
    end;
    Writeln('Kol-vo slov v stroke:   ',count);
    Writeln('END');
    Readln;
end.

[Serge_Bliznykov]

попробуйте так:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  var
    MyStr, oneWord: string;
    i, count, n: byte;
begin
    Writeln('Vvedite slova v stroku cherez probel (V konce ENTER):');
    readln(MyStr);
    Writeln('Zadaem dlinu slov, kol-vo kotorih nado nayti:');
    readln(n);

    count:=0;
    MyStr := MyStr + ' ';
    oneWord := '';    
    for i:=1 to length(MyStr) do begin
        if (MyStr[i] <> ' ') then oneWord := oneWord + MyStr[i]
        else begin
           if Length(oneWord)=n then Inc(count);
           oneWord := '';
        end;
    end;
    Writeln('Kol-vo slov v stroke s dlinoi ',n,' = ',count);
    Readln;
end.

Сообщение от Alexey1002

Используя функцию, определить количество слова, имеющих заданную длину n.

а если с функцией, то так:

program Project1;

{$APPTYPE CONSOLE}

uses  SysUtils;

  function CountWordByThisLength(const s : string; const n : integer) : integer;
  var ss, oneWord: string;
    i, count: integer;
  begin
    count:=0;
    ss := s + ' ';
    oneWord := '';    
    for i:=1 to length(ss) do begin
        if (ss[i] <> ' ') then oneWord := oneWord + ss[i]
        else begin
           if Length(oneWord)=n then Inc(count);
           oneWord := '';
        end;
    end;
    CountWordByThisLength := count
  end;

  var
    MyStr: string;
    n : integer;
begin
    Writeln('Vwwvedite slova v stroku cherez probel (V konce ENTER):');
    readln(MyStr);
    Writeln('Zadaem dlinu slov, kol-vo kotorih nado nayti:');
    readln(n);

    Writeln('Kol-vo slov v stroke s dlinoi ',n,' = ', CountWordByThisLength(MyStr, n));
    Readln;
end.

[Alexey1002]

Огромное Вам спасибо, работает! А то я уже и так, и так перепробовал