задача со строками,в делфи,не получается(((

[Рокси]

Текст задан следующим образом: первый символ-цифра указывающая длину первого слова,за первым символом через пробел- вновь цифра,указывающая длину второго слова и т. д. Вывести слово указанной длины.

[Prime123]

А на ваши наработки можно посмотреть?

[Hacker19_90]

Наработки есть?
если нет попробуйте так

function GetWord(s: string; n: integer): string;
var
    i, pos: integer;
begin
    Result := '';
    for i := 1 to length(s) do
    begin
        if (s[i] = IntToStr(n)) then
        begin
            pos := i+1;
            Result := Result + copy(s, pos, n) + ' ';
        end;
    end;
end;