-
:
.
________________2008 . ______________..
______________2008 .
____________ ..
11
:
:
230101
..
2008 .
11
:
1.
2.
:
- , , . . . , :
.
( ) . , ( ) , .
Var Type Var, .
Var < >:RECORD
1:;
2:;
...
n:
END;
2. Type < >=RECORD
1:;
2:;
...
n:
END;
Var < >:< >;
, .
, , :
| / |
:
Type
T_Stud=Record
Nom: word;
FIO: string[40];
Fac: string[5];
Group: string[6];
Ball: array[1..3] of byte;
End;
Var Stud: T_Stud; { }
. , , , 1000 :
Spisok:Array[1..1000] of T_Stud; { }
() . i - ( Spisok) FIO : Spisok[i].FIO. , Spisok[i].Ball[2].
