Чего эта программа не читает русский язык?

program name;
var sl,s:string; i, h:integer;
    f: text;
begin
  assign (f,'obame.txt');
  reset(f);
  while not eof(f) do
    begin
    readln(f,s);
    h:=0;
    sl:='';
    i:=1;
    s:=s+'.';
  repeat
    if (s[i]=' ') or (s[i]=',') or (s[i]=';') or (s[i]='.') or (s[i]='!') or (s[i]='?')
    then
     begin
      if sl[1]=sl[length(sl)] then h:= h+1;
      sl:='';
      end
      else sl:=sl+s[i];
      i:=i+1
     until i>length(s);
     end;
    writeln('kolvo slov nachinayuschihsya i zakanchivayuschihsya na odnu i tu zhe bukvu = ',h)
    end.

program prg1;
 
var
  sl, s: string;
  i, h: integer;
  f: text;
 
begin
  assign(f, 'obame.txt');
  reset(f);
  h := 0;
  while not eof(f) do
  begin
    readln(f, s);
    sl := '';
    i := 1;
    s := s + '.';
    repeat
      if (s[i] = ' ') or (s[i] = ',') or (s[i] = ';') or (s[i] = '.') or (s[i] = '!') or (s[i] = '?')
      then
      begin
        if sl[1] = sl[length(sl)] then h := h + 1;
        sl := '';
      end
      else sl := sl + s[i];
      i := i + 1
    until i > length(s);
  end;
  writeln('kolvo slov nachinayuschihsya i zakanchivayuschihsya na odnu i tu zhe bukvu = ', h)
end.

if Length(sl)>0 then
  if sl[1]=sl[length(sl)] then