обработка строки текста... Опции

[ROxY]

 var
arr: array [1..20] of string;
ch,c: Char;
count,d,a,i,o: Integer;
st,s: String;
t: text;
fs:text;
begin
a:=0; o:=0; count:=0;
assign(t,'input.txt');
assign(fs,'output.txt');
reset(t);
rewrite(fs);
while not eof(t) do begin
 Inc(a);
 readln(t,arr[a]);
end;
for ch:='a' to 'я' do bedin
 for d:=1 to 20 do begin
  st:=arr[d];
  if not (st='') then begin
  repeat
   inc(o);
   if st[o]=ch then begin inc(count); end;
  until o=length(st);
  o:=0;
  end;
 end;
if not (count=0) then begin
str(count,s);
s:=ch+' - '+s;
writeln(fs,s);
count:=0;
end else count:=0;
end;
close(t);
close(fs);
readln

итак мне нужно вывести в алфавитном порядке и подсчитать количество букв в фразе..
вот это программка...
но у меня выдается ОШИБКА в месте
reset(t);
вот такая: path no found
Что это значит?
почему не работает программка????