Вводится n строка, найти кол-во пробелов в ней. Pascal ABC

program c_space;

var s, s1 : string;

k: integer;

begin

writeln ('Введите строку с пробелами.');

readln (s);

s1: = s; / /создаем копию введенной строки

while Pos (' ', s1) > 0 do

begin

if Pos (' ', S1) > 0 then k: = k + 1;

delete (s1, pos (' ', s1), 1) / /удаление пробела

end;

WriteLn ('Число пробелов в строке: ', k)

end.