Tugas Mandiri_2 Pemrograman Dasar

uses wincrt; type
recBuku=record
judul:string[20];
kode:string[10];
pengarang:string[20];
edisi:string[4];
tahun:integer;
penerbit:string[20];
end;
var
k:array[1..2] of recBuku;
tempjudul,temppeng,temppnb:string[20];
tempkod:string[10];
temped:string[4];
tempth,i,j:integer;
begin
writeln('------------------- Input Data Buku --------------------');
writeln('======================================');
for i:=1 to 2 do
begin
write('Judul Buku : ');readln(k[i].judul);
write('Kode Buku : ');readln(k[i].kode);
write('Pengarang : ');readln(k[i].pengarang);
write('Edisi : ');readln(k[i].edisi);
write('Tahun terbit : ');readln(k[i].tahun);
write('Penerbit : ');readln(k[i].penerbit);
writeln;
end;
for i:=1 to 2 do
begin
for j:=1 to 2 do
begin
if k[j].judul > k[i].judul then
begin
tempjudul:=k[j].judul;
k[j].judul:=k[i].judul;
k[i].judul:=tempjudul;
tempkod:=k[j].kode;
k[j].kode:=k[i].kode;
k[i].kode:=tempkod;
temppeng:=k[j].pengarang;
k[j].pengarang:=k[i].pengarang;
k[i].pengarang:=temppeng;
temped:=k[j].edisi;
k[j].edisi:=k[i].edisi;
k[i].edisi:=temped;
tempth:=k[j].tahun;
k[j].tahun:=k[i].tahun;
k[i].tahun:=tempth;
temppnb:=k[j].penerbit;
k[j].penerbit:=k[i].penerbit;
k[i].penerbit:=temppnb;
end;
end;
end;
clrscr;
writeln('---------------- Output Data Buku ----------------');
writeln;
writeln('===============================================');
writeln('| No | Judul | Kode | Pengarang | Edisi | Tahun | Penerbit |');
writeln('===============================================');
writeln;
for i:=1 to 2 do
begin
writeln(i,' ',k[i].judul:10,' ',k[i].kode:6,' ',k[i].pengarang:7,' ',k[i].edisi:10,' ',k[i].tahun:10,' ',k[i].penerbit:5);
end;
readln;
end.