помогите исправить ошибки плиз
const
n=20;{maks dlina slova}
var
kolvo:array[1..n] of integer;
slovo, stroka:string;
i:integer;
f:text;
begin
for i:=1 to n do
begin
assign(f,'c:\in.txt');
reset(f);
while not eof(f) do
begin
readln(f,stroka);
slovo:='';
for i:=1 to length (stroka) do
begin
if stroka[i] in ['',''] then {v kvdratnih skobkah
cherez zapyatuyu perechislit' vse razdeliteli slov.kazhdiy razdelitel' v kavichkah razdelitel'}
begin
if length(slovo) > 0 then kolvo[length(slovo)]:=kolvo[length(slovo)]+1;
slovo:='';
end else
slovo:=slovo+stroka[i];
end;
if length(slovo)>0 then kolvo[length(slovo)]:=kolvo[length(slovo)]+1;
end;
close(f);
assign(f,'c:\out.txt');
rewrite(f);
for i:=1 to n do
writeln(f,'slov iz',i,'bukv:',kolvo[i]);
close(f);
readln;
end.