Program index nilai (function)

Ini adalah program index nilai yang mencari nilai A,B,C,D,E dalam nilai UTS(40%) dan UAS(60%)
lihat di bawah susunan programnya:
 ___________________________________________________________________________________
program index_nila;
uses crt;
var
x:integer;
function index(x: integer):integer;
var
uts,uas : integer;
utse,uase,total,index  : real;
begin
     write('Masukan Nilai UTS : ');readln(uts);
     write('Masukan Nilai UAS : ');readln(uas);
     utse:=uts*0.4;
     uase:=uas*0.6;
     total:=uase+utse;
     writeln;
     writeln('----------------------------------------');
     writeln('Total Nilai Anda : ',TOTAL:2:0);
     if total > 85 then
        write('Nilai Index Anda : A') ELSE
     if total>70  then
        write('Nilai Index Anda : B') ELSE
     if total  >56 then
        write('Nilai Index Anda : C')ELSE
     if total> 46 then
        write('Nilai Index Anda : D')ELSE
     if total <= 45 then
end;
begin
     clrscr;
     textcolor(green);
     writeln('+++PROGRAMS NILAI+++');
     writeln;
     index(x);
     readln;
end.

------------------------------------------------------------------------------------------------------------------------
Anda bisa mengambil dalam bentuk
PAS : download
EXE: download