Напишите, пожалуйста, программу для турбо паскаль
Программа для счета символов в строке!!!! Очень нужно!! Помогите!!

var s:string; i,kol:integer; begin writeln('vvedite stroky'); readln(s); kol:=0; for i:=1 to length(s) do kol:=kol+1; writeln(kol); readln; end.