Small-Pascal-Example-Project/Main.pas at main · nathub/Small-Pascal-Example-Project · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
program Main;
{$MODE OBJFPC}
uses Student, Grading, sysutils;

var
	level: TGradeLevel;
	levelString: string;

function InputStudent(): TStudent;
var
	studentName: TNameRecord;
begin
	writeln('Enter Student Firstname: ');
	readln(studentName.firstname);

	writeln('Enter Student Middlename: ');
	readln(studentName.middlename);

	writeln('Enter Student Lastname: ');
	readln(studentName.lastname);

	writeln(studentName.firstname, studentName.middlename, studentName.lastname);

	InputStudent = CreateStudent(studentName.firstname, studentName.middlename, studentName.lastname,
	 'm', SysUtils.Now(), 25, 3);
end;


begin
	writeln('Beginning Main program. Small Example Pascal, student system.');

	readln(level);

	levelString := GradeLevelToString(level);
	writeln('Grade Levels string: ', levelString);

	InputStudent();

end

end.