Составить программу для обработки текстовой информации по поставленному условию: в заданном тексте вычислить количество слов в тексте и распечатать их по одному в строке — Pascal(Паскаль)

program st;

var
  s, s1: string;
  i, k: integer;
  kol: integer;

begin
  cls;
  readln(s);
  s := s + ' ';
  repeat
    if pos('  ', s) > 0 then
      delete(s, pos('  ', s), 1);
  until pos('  ', s) = 0;
  k := 0;
  kol := 0;
  for i := 1 to length(s) do
    if s[i] = ' ' then
    begin
      s1 := copy(s, k + 1, i - k);
      writeln(s1);
      kol := kol + 1;
      k := i;
    end;
  writeln(kol, ' Слов');

end.