Contoh program di bawah ini adalah program pengurutan nilai dari yang terbesar sampai yang terkecil dengan menggunakan RECORD;Di bawah ini adalah jawaban dari soal UTS di Kampus tercinta POLITEKNIK NEGERI BALI.uses crt;Type data = Record No : integer; Nama : string; nilai : integer;end;procedure pindah(var a,b:integer);var m:integer;beginm:=a;a:=b;b:=m;end;procedure pindah2(var x,y:string);var n:string;beginn:=x;x:=y;y:=n;end;procedure pindah3(var c,d:integer);var w:integer;beginw:=c;c:=d;d:=w;end;var dt:array[1..10] of data; tnil:real; n,i,j:integer; rnil:real;begin clrscr; tnil:=0; write('Masukan Jumlah Siswa :'); read(n);for i:=1 to n dobegin write('No:'); readln(dt[i].No); write('Nama:'); readln(dt[i].Nama); write('nilai:'); readln(dt[i].nilai);...