I made a solution, I need more information about your program if it is not good for you.
Program students;
Uses Crt, Dos;
Const n = 2;
m = 3;
Type subs = Array[1..m]Of Record
sub_name: String[20]; {example: english, or math, or geometry, etc}
mark: String[2];
End;
Type student = Record
student_name: String;
subjects: subs;
End;
Var TheClass: Array[1..n] Of student;
i,j:Byte;
Begin {main}
ClrScr;
{fill up}
For i:=1 To n Do Begin
WriteLn('----');
With TheClass[i] Do Begin
Write(i,'. Student Name : ');
ReadLn(student_name);
WriteLn('Subject: ');
For j:=1 To m Do Begin
With subjects[j] Do Begin
Write(j,'. Subject: ');
ReadLn(sub_name);
Write('Subject mark: ');
ReadLn(mark);
End;
End;
End;
End;
WriteLn;
WriteLn('Ok, let''s write the 2. pupil''s data: ');
WriteLn;
With TheClass[2] Do Begin
WriteLn('Student''s Name: ',student_name);
WriteLn('Subjects are: ');
j:=1;
While (j<=m) Do Begin
WriteLn(subjects[j].sub_name:20,' ','Mark: ',subjects[j].mark);
Inc(j);
End;
End;
ReadKey;
End.
(*Created By FlamingClaw 2010.Augusztus.13.Pentek.*)