Ввести строку с клавиатуры. Заменить все большие буквы на маленькие — Pascal(Паскаль)

var s:string;
    i,count:integer;
begin
write('s -> ');
readln(s);
count:=0;
for i:=1 to length(s) do
    if s[i]=' ' then inc(count);
writeln('пробелов: ',count);
readln;
end.