Program Nilai Array dalam Record

program nilai;

uses wincrt;

type

    mhs= record

    nama:array[1..100] of string [25];

    nim:array [1..100] of string [11];

    mk:array [1..100] of string [15];

    na:array [1..100] of char;

    end;

var

data:mhs;

i,n:integer;

begin

write('masukkan banyak data:');readln(n);

for i:= 1 to n do

begin

write('masukkan nama    :');readln(data.nama[i]);

write('masukkan Nim     :');readln(data.nim[i]);

write('masukkan matakuliah:');readln(data.mk[i]);

write('masukkan nilai akhir:');readln(data.na[i]);

end;

clrscr;

for i:= 1 to n do

begin

writeln('nama    :',data.nama[i]);

writeln('Nim     :',data.nim[i]);

writeln('matakuliah:',data.mk[i]);

writeln('nilai akhir:',data.na[i]);

if(data.na[i]='D') or (data.na[i]='d') or (data.na[i]='E') or (data.na[i]='e') then

begin

writeln('anda perlu mengulang')

end

else

begin

writeln('anda tidak perlu mengulang');

end;

end;

end.