Написать программку на паскале которая определяет, каковой процент пробелов во введенном

обычный турбопаскаль, который в школах стоит.

Var
  s: string;
  i, n, k: integer;

begin
  writeln('Введите текст');
  readln(s);
  n := Length(s);
  k := 0;
  for i := 1 to n do
    if s[i] = ' ' then k := k + 1;
  writeln('Количество пробелов в тексте- ', k)
end.

Тестовый пример:

Введите текст
А роза свалилась на лапу Азора, а здесь ДВА пробела  , а тут вообще пять:     : Все!
Количество пробелов в тексте- 21