Алгоритмы по информатике
Проверьте на правильность данные алгоритмы.
1)Дана строка, заканчивающаяся точкой. Подсчитать, сколько слов в строке.
2)В строке заменить все двоеточие (:)точкой с запятой (;)Подсчитать количество замен.

1)var s:string;
k,i:integer;
begin
write('Введите строку ');
readln(s);
s:=' '+s;
for i:=1 to length(s) do
if s[i]=' ' then k:=k+1;
writeln(k);
end.

2)var s:string;
k,i: integer;
begin
write('Введите строку ');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]=':' then
begin
s[i]:=';';
inc(k);
end;
writeln(s);
writeln(k);
end.