Помогите, пожалуйста! Определить длину 2го слова в предложении. Turbo pascal

1. измерить длину всего предложения2. вырезать из предложения 2 кусочка текста: до 1 пробела и до 2 пробела3. измерить длину обоих кусочков4. длина кусочка 2- длина кусочка 1 - 1 символ (пробел между кусочками)= искомая длина

var  s : String;begin    Writeln('Vvedite predlojenie:');    Readln(s);    s := Copy(s, pos(' ', s) + 1, Length(s));    s := Copy(s, 1, pos(' ', s) - 1);       Writeln('Dlina 2 slova = ', length(s));    Readln;end.