Определить длину 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.