напишите программу которая будет сколько букв в написанном предложении пробелы не должен читать делать в паскале

//Pascal ABC.NET v3.1 сборка 1172Var s:string; i,k:integer;begin readln(s); for i:=1 to length(s) do if s[i]<>' ' then inc(k); writeln(k);end.Пример ввода:Очень много мячейПример вывода:15