Составьте программу которая находит позицию пробела в строке s состоящей из двух слов разделенных пробелом. строка вводится с клавиатуры

Var s:string;
begin
  readln(s);
  writeln(pos(' ',s));
end.

Тестовое решение:
Всем привет!
5