Using Custom Type Example

DECLARE Pupil1: Student

DECLARE Pupil2: Student

DECLARE Form : ARRAY[1:30] OF Student

Pupil1.Surname <-- "Johnson"

Pupil1.FirstName <-- "Leroy"

Pupil1.DateOfBirth <-- 02/01/2005

Pupil1.YearGroup <-- 6

Pupil1.FormGroup <-- 'A'

Pupil2 <-- Pupil1

FOR Index <-- 1 TO 30

         Form[Index].YearGroup <-- Form[Index].YearGroup + 1

ENDFOR Index