Program Sorting Nama/String Menggunakan Pascal

Berikut merupakan program untuk mengurutkan nama atau data bertipe string menggunakan pascal. Buat temen-temen yang ingin belajar silahkan dipelajari.

program sorting_nama;
uses crt;
type rec_data=record
        nama:string;
     end;

var     data: array [1..10] of rec_data;
        n,i,j:byte;
        temp:string;

procedure input;
begin
clrscr;
    writeln('Program mengurutkan Nama');
    writeln;
    write('Masukkan Jumlah Nama : ');readln(n);
    for i :=1 to n do
    begin
        write('Nama  ke-',i,'       : ');readln(data[i].nama);
    end;
end;

procedure bubble;
begin
    for i:=n downto 2 do
    begin
        for j:=1 to i-1 do
        if data[j].nama > data[j+1].nama then
        begin
           temp          := data[j+1].nama;
           data[j+1].nama:=data[j].nama;
           data[j].nama  :=temp;
        end;
    end;

    for i :=1 to n do
    begin
        writeln('Nama  ke-',i,'       : ',data[i].nama);

    end;
end;


BEGIN
clrscr;
    input;
    writeln;
    writeln('Data Setelah Diurutkan');
    bubble;
readln;
END.

Berikut merupakan output dari program di atas.