Не могу исправить ошибки

program lab6;
uses crt;
 
const
 
CAlphabet1=['a'..'z'];
CAlphabet2=['A'..'Z'];
 
 
Type
   TResult=(up,down);
   
 
Function Count(Str:string):TResult;
var
  i:integer;
  l:integer;
  Series:integer;
begin
   l:=Length(str);
   i:=1;
   while Str[i]<=l do
   begin
      If Str[i] in CAlphabet1 then
         inc(Series)
       else
         If Str[i] in CAlphabet2 then
           dec(Series);
   end;  
 
 
   If Series>0 then
     Count:=up
   else
     Count:=down;   
end;
 
{-----------------------------------}
 
procedure Full(var Str:string;result:TResult);
var
   i:integer;
   l:integer;
begin
  l:=Length(str);
  case result of
               up:
                    for i:=length(str) downto 1 do
                              if str[i] in CAlphabet1 then 
                                 str[i]:=Upcase(str[i]);
               down:
                     for i:=length(str) downto 1 do
                              if str[i] in CAlphabet2 then 
                                 str[i]:=chr(ord(str[i])+32);
 
      end; 
end;
 
{-----------------------------------}
 
var
  Str:string;
  Series:integer;
  result:TResult;
begin
   clrscr;
   Writeln('Enter Line');
   Readln(Str);
   result:=Count(Str);
   Full(Str,result);
   Writeln('Ending Line');
   Writeln(Str);
end.

Function Count(Str:string):TResult;
var
   i:integer;
   l:integer;
   Series:integer;
begin
   l:=Length(str);
   Series := 0; // <-- Раз !!!
   i:=1;
   while i<=l do // <--- Два !!!
   begin
      If Str[i] in CAlphabet1 then inc(Series)
      else
         If Str[i] in CAlphabet2 then dec(Series);
      Inc(i); // <--- Три !!!
   end;
 
   If Series>0 then Count:=up
   else Count:=down;
end;