program sort_DATA_MAHASISWA;
uses crt;
type
data HMS=string;
var
nama,NPM,kelas : array[1..15] of dataMHS;
b,a,d : byte ;
temp : string ;
const garis='-------------------------------';
begin
clrscr;
write('masukan data:');readln(d);
for b: = 1 to d do
begin
write('nama :');readln(nama[b]);
write('NPM :');readln(NPM[b]);
write('kelas :');readln(kelas[b]);
writeln;
end;
for b:=1 to d-1 do
begin
for a:=b to d do
begin
temp : = nama[a];
nama[a] : = nama[b];
nama[b] : = temp;
temp : = NPM[a];
NPM[a] : = NPM[b];
NPM[b] : = temp;
temp : =kelas[a];
kelas[a] : = kelas[b];
kelas[b] : = temp;
end;
end;
end;
writeln;
writeln('setelah diurutkan:');
for b: = 1 to d do
begin
writeln;
writeln('DATA MAHASISWA');
writeln;
writeln(garis);
writeln('nama===========NPM====kelas');
writeln(garis);
for b : = 1 to d do
begin
writeln(nama[b]:0,NPM[b]:16,kelas[b]:9);
end;
end;
readln
end.
