Где Ошибка в Алгоритмазации

Question

Program podchet; 
uses crt; 
var slovo:string; 
 s:char; 
 i:integer; 
begin 
clrscr; 
write('введите слово'); 
read(slovo); 
write('введите букву'); 
read(s); 
for i:=1 to length(slovo)do 
if slovosthen; 
a:=a+1; 
write('кол-во букв: a); 
end. 
 
Где ошибка подскажите пожалуйста

Анастасия · Accepted Answer

if slovosthen; 
a:=a+1; 
 
надо 
 
if slovos"i"=s then 
a:=a+1; 
 
Где "- квадратная скобка, а то ответ майл не берёт 
 
и еще write('кол-во букв: a); надо write('кол-во букв: ',a);