Program PRG3;
Var { Declaring Varaibles }
FileIn:text;
FileOut:text;
SECTION_NUMBER:string[5];
STUDENT_ID:string[9];
LAST_NAME:string[20];
FIRST_NAME:string[10];
RAW_SCORE:real;
STUDENT_COUNT:integer;
AVERAGE_SCORE:integer;
AVERAGE_GRADE:integer;
Percent:real;
more_rec:boolean; {end of file flag}
Computed_grade:integer;
Grade:real;
procedure read_record;
begin
if not Eof(fileIn) then
readln(SECTION_NUMBER,STUDENT_ID,LAST_NAME,FIRST_NAME,RAW_SCORE)
else
more_rec := False
end; {read record}
procedure print_header;
begin
writeln(fileout,Space(14),'COMPUTE GRADE');
writeln(fileout,space(17),'SECTION','SECTION_NUMBER');
writeln(fileout);
writeln(fileout,space(9),'LAST_NAME',space(11),'FIRST_NAME',' RAW_SCORE',' COMPUTED_GRADE');
writeln(fileout,' ID',Space(17),'LAST NAME',Space(11),'FIRST NAME PRCNT');
writeln(fileout);
Writeln(FileOut,'STUDENT COUNT',STUDENT_COUNT);
Writeln(FileOut,'AVERAGE SCORE',AVERAGE_SCORE);
Writeln(FileOut,'AVERAGE GRADE',AVERAGE_GRADE);
end; {print_header}
procedure initial;
begin
assign(filein,'prg3-150.DAT');
reset(filein);
assign(fileout,'prg3-150fileout.dat');
rewrite(fileout);
read_record;
end; {initial}
procedure compute_grade;
begin
IF percent >= 90.0 Then
Grade:= 4.0
else
IF percent >= 85.0 then
Grade := 3.5
else
IF percent >= 80.0 Then
grade :=3.0
else
IF percent >= 75.0 Then
grade:= 2.5
else
IF percent >= 70.0 Then
grade := 2.0
else
IF percent >= 65.0 Then
grade := 1.5
else
IF percent >= 60.0 Then
grade := 1.0
else
IF percent >= 0.0 Then
grade := 0.0
else
end;
procedure process;
begin
PERCENT := (RAW_SCORE / 850.0) * 100.0;
writeln(FileOut,'last_name,' ',first_name,' ',raw_score:3:0,' ',computed_grade:3:1);
read_record;
end; {process}
procedure wrapup;
begin
writeln(fileOut);
writeln(fileout,'student_count');
close(filein);
close(fileout);
end; {wrapup}
begin
initial;
while more_rec=true do
process;
wrapup;
end.
After compiling this program I keep getting the same error messages over and over again. Even after I edit/change whatever the compiler suggest I need to change. Is there something I'm missing?
