STRUKTUR DATA : [PROGRAM PERMUTASI]

Bagi temen-temen Yang belum paham tentang pembahasan Mata kuliah Struktur Data bab permutasi.
Berikut ane akan share sedikit yang ane paham.. heheheheheeee :)

#silahkan ketik kembali source code berikut :

program permutasi;
uses wincrt;
type data = array[1..10] of char;
var
ulang : string;
a : data;
i,n : byte;
procedure prmutasi(a : data; mulai : byte);
var
i : byte;

elemn : char;

begin
if mulai=n then
begin
for i:=1 to n do
write(a[i]);
writeln;
end
else
begin
for i:= mulai to n do
begin
elemn:=a[i];
a[i]:=a[mulai];
a[mulai]:=elemn;
prmutasi(a,mulai+1);
end;
end;
end;
begin
writeln (' NAMA : MUHAMMAD FATHUROJI  ');
writeln (' NIM : 11295117 ');

writeln ('STMIK YMI TEGAL');

writeln (' =============== ');
writeln;
writeln (' MENCARI HASIL PERMUTASI DARI BEBERAPA ELEMEN DAN KOMBINASINYA ');
writeln;

repeat

write ('Banyaknya N (permutasi) = ');readln(n);
writeln;
write (' lihat hasil permutasi dan kombinasinya ??? tekan "ENTER" ');readln;
writeln;
for i:=1 to n do
a[i]:=chr(i+64);
prmutasi(a,1);
writeln ;

writeln;

writeln ( ' Mau Coba lagi ??? [Y / T] ');readln (ulang);
writeln;
clrscr;
until (ulang = 'T')OR (ulang = 't');
writeln ('NEWBIE');
writeln;
writeln (' Fb : Zynester Zi ');
writeln (' email : zichapter_16@yahoo.com ');
readln;
clrscr;

end.