membuat program sortir pada pascal

Disaat para IT berlomba-lomba mempelajari PHP, SQL, Oracle, Android, Java, atau minimal Linux.. gw malah masih dibikin pusing dengan program taun 60-an yang amat sangat jadul.
huff.. tapi kalo program sederhana kaya gini aja udah pusing gimana program” besar di perusahaan ya? ckck
ok langsung aja, dibawah ini adalah program sortir data yang telah gw buat.
coding :
Program output_pascal;
uses crt;
label z;
label l;
var textfile:text;
FileName, TFile : String;
a:array[1..15] of string;
i,j:integer;
x,v:char;
temp: string;
procedure input;
Begin
clrscr;
Writeln(‘Enter the file name ‘+
+’(with its full path) of the text file:’);
readln(FileName);
writeln(‘——-DATA MAHASISWA—–’);
writeln(‘————————–’);
writeln(‘KELAS NAMA NPM’);
writeln(‘————————–’);
{A .txt file will be assigned to a text variable}
Assign(textfile, ‘a:\data45.txt’);
Reset(textfile); {‘Reset(x)’ – means open the file x}
Repeat
Readln(textfile,TFile);
Writeln(TFile);
Until Eof(textfile);
Close(textfile);
Readln;
End;
procedure sort;
begin
clrscr;
assign(textfile,’a:\data45.TXT’);
reset(textfile);
for i:=1 to 15 do readln(textfile,a[i]);
close(textfile);
for i:=1 to 14 do
for j:=i to 15 do
if a[j] Assign(textfile, ‘c:\data88.txt’);
- untuk syntaks pada procedure output, coding ( Assign(textfile, ‘c:\data88.txt’); ) diubah kembali sesuai dimana output tersebut akan disimpan. (jangan disamakan dengan file input)
cth : Assign(textfile, ‘a:\data46.txt’); => Assign(textfile, ‘c:\data89.txt’);
hasilnya : (klik untuk memperbesar)
menu :

input :

Output :

kalo ada yang kurang atau tau cara mengembangin programnya lagi tolong di comment ya ^_^
kelas : 2db01
Universitas Gunadarma