Merecord data mahasiswa

uses wincrt;
type tnilai = array[1..10] of byte;
     tsiswa = record
            nama: string[10];
            nis:word;
            n:byte;
            nilai:tnilai;
     end;
     tkelas = array[1..10] of tsiswa;
var siswa1, siswa2: tsiswa;
    kelas: tkelas;
    i, j, m : byte;
begin
     writeln('Data 2 siswa:');
     writeln('  Data siswa 1:');
     write('    Nama:'); readln(siswa1.nama);
     write('    Nis:'); readln(siswa1.nis);
     write('    Jumlah pelajaran:'); readln(siswa1.n);
     for i:=1 to siswa1.n do begin
         write('      Nilai ke-',i,':');readln(siswa1.nilai[i]);
     end;
     writeln;
     writeln('  Data siswa 2:');
     with siswa2 do begin
     write('    Nama:'); readln(nama);
     write('    Nis:'); readln(nis);
     write('    Jumlah pelajaran:'); readln(n);
     for i:=1 to n do begin
         write('       Nilai ke-',i,':');readln(nilai[i]);
     end;
     end;
     readln;
     clrscr;
     writeln('Data yang dimasukkan:');
     writeln('Siswa 1:');
     with siswa1 do begin
          writeln('    Nama:',nama);
          writeln('    Nis:',nis);
          writeln('    Jumlah pelajaran:',n);
          for i:=1 to n do
              writeln('        Nilai ke-',i,':',nilai[i]);
     end;
     writeln('Siswa 2:');
     with siswa2 do begin
          writeln('    Nama:',nama);
          writeln('    Nis:',nis);
          writeln('    Jumlah pelajaran:',n);
          for i:=1 to n do
              writeln('        Nilai ke-',i,':',nilai[i]);
     end;
     readln;
     clrscr;
     writeln('Data siswa pada suatu kelas');
     write('Jumlah siswa:');readln(m);
     for i:=1 to m do
         with kelas[i] do begin
              writeln('Data siswa ke-',i,':');
              write('  Nama:');readln(nama);
              write('  Nis:'); readln(nis);
              write('  Jumlah pelajaran:'); readln(n);
              for j:=1 to n do begin
                  write('   Nilai ke-',j,':'); readln(nilai[j]);
              end;                 
         end;
     readln;
     writeln('Data siswa:');
     writeln('---------------------------------');
     writeln('| No |   Nama   | Nis |Pelajaran|');
     writeln('---------------------------------');
     for i:=1 to m do
         with kelas[i] do begin
              writeln('|',i:4,'|',nama:10,'|',nis:4,' |',n:5,'   |');
              for j:=1 to n do
                  writeln('|    |          |     |',j,':',nilai[j]:5,' |');
         end;
     writeln('---------------------------------');
end.