program nama;
uses wincrt;
type data=record
     no:integer;
     nama:string;
     kelas:string;
     end;
var
ini:array[1..4] of data;
i,j:integer;
temp:data;

begin
clrscr;
for i:=1 to 4 do
 begin
 write(‘Masukan NIM ke-’,i,’: ‘);
 readln(ini[i].no);
 write(‘Nama   : ‘);
 readln(ini[i].nama);
 write(‘Kelas  : ‘);
 readln(ini[i].kelas);
 end;
writeln(‘nim’:5,’nama’:10,’kelas’:10);
for i:=1 to 4 do
begin
writeln(ini[i].no:5,ini[i].nama:10,ini[i].kelas:10);
end;
{proses pengurutan}
begin
for i := 1 to 4 do
 for j := 1 to 3 do
 if ini[i].no < ini[j].no then
 Begin
 temp := ini[i];
 ini[i] := ini[j];
 ini[j] := temp;
 end;
writeln(‘Hasil yang telah diurutkan berdasar NIM :’);
writeln(‘—————————————–’);
writeln(‘nim’:5,’nama’:10,’kelas’:10);
for i := 1 to 4 do
writeln(ini[i].no:5,ini[i].nama:10,ini[i].kelas:10);
end;
readln;
end.
end.