program sort

Program pascal_save_sortir  ;
uses crt;
label z;
label l;
var textfile:text;
    a:array[1..10] of string;
    i,j:integer;
    temp:string;
    x,v:char;

procedure sort;
begin
clrscr;
  assign(textfile,'Data.TXT');
  reset(textfile);
  for i:=1 to 10 do readln(textfile,a[i]);
  close(textfile);



  for i:=1 to 9 do
    for j:=i to 10 do
      if a[j]<a[i] then
        begin
          temp:=a[i];
          a[i]:=a[j];
          a[j]:=temp;
        end;


  assign(textfile,'Data.TXT');
  rewrite(textfile);
  for i:=1 to 10 do writeln(textfile,a[i]);
  close(textfile);

  end;




procedure tulis;
Var
Txt : String[10];
UserFile : Text;
Begin
Assign(textfile,'Data.TXT');
Rewrite(textfile);
for i:= 1 to 10 do
begin
clrscr;
Writeln('masukkan nama ke-',i,'   :   ');readln(a[i]);
writeln(textfile,a[i]);
end;
Close(textfile);
End;

procedure output;

begin
  clrscr;
  assign(textfile,'Data.TXT');
  rewrite(textfile);
  for i:=1 to 10 do
    writeln(i,'.  ',a[i]);
    writeln;
  close(textfile);
end;

begin
z: clrscr;
writeln('******************');
writeln('Program Sorting');
Writeln('******************');
writeln('1.Masukkan Data');
writeln('2.Sortir Data');
writeln('3.Output');
writeln('4.Exit');
writeln('Masukkan (1,2,3,4) : ');readln(x);

case x of
'1' :  tulis;
'2' :  sort;
'3' :  output;
'4' :  goto l;
end;

if x = '2' then
begin
clrscr;
writeln('Selesai(press Enter)');readln;
goto z;
end;
writeln('Apakah anda ingin kembali ke menu  :  '); readln(v);
if (v = 'y') or (v = 'Y') then goto z ;


l: end.