Pascal Hakkında Acil

  
  function Not_Harf_Bul(Puan : integer):string; 
  var I : integer; 
    Harf : array[1..9] of string =('AA','BA','BB','CB','CC','DC','DD','FD','FF'); 
    Sayi : array[1..9] of integer =(90,80,70,65,60,55,50,40,0); 
  begin 
     result := '?'; 
     for I:=1 to HIGH(Sayi) do 
     begin 
       if Puan >= Sayi[I] then 
       begin 
          result := Harf[I]; 
          exit; 
       end; 
   
     end; 
  end; // işlev sonu