uses
  SysUtils;
type
hari =array[0..6] of string;
hhari=array[0..6] of string;

var
jadwal:hari;
daftar:hhari;
y:Char;
i:Integer;
begin
  try
daftar[0]:='senin';
daftar[1]:='selasa';
daftar[2]:='rabu';
daftar[3]:='kamis';
daftar[4]:='jumat';
daftar[5]:='sabtu';
daftar[6]:='minggu';

repeat

 Writeln('JADWAL pelajaran');
 for I := 0 to 6 do
 begin
 Write(daftar[i],'=');
 Readln(jadwal[i]);
 end;

 Writeln('');
 Writeln('');
 Writeln('========Cetak Hasil======');

 for I := 0 to 6 do
 Writeln(daftar[i],' = ',jadwal[i]);

 Writeln('');
 Writeln('');
 Writeln('lagi tekan Enter selesai tekan N'); Readln(y);
until (y ='n')or (y='N');

 Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;