Program Utama

program ProgramUtama;
{PROGRAM}
uses uf1load;
{KAMUS}
var
    BahanMentah: TypeBahanMentah;
    BahanOlahan : TypeBahanOlahan;
    FileBahanMentah, FileBahanOlahan : FileEksternal;
    Fitur : integer;
{ALGORITMA}
begin
    writeln ('----------------------------------------------------------------------------');
    writeln ('Selamat datang di Engi','s Kitchen!');
    writeln ('----------------------------------------------------------------------------');
    repeat
         writeln ('Ketik angka "1" untuk meload semua file pada folder!');
         readln (Fitur); {Pengguna harus memasukan angka 1 agar dapat lanjut, jika tidak akan diulang sampai benar}
    until (Fitur = 1 );
       writeln ('----------------------------------------------------------------------------');
       writeln ('Meload file Bahan Mentah : ');
       writeln ('----------------------------------------------------------------------------');
       assign (FileBahanMentah.fin, 'FileBahanMentah.txt');
       reset (FileBahanMentah.fin);
       LoadBahanMentah ( FileBahanMentah , BahanMentah); {Memanggil Prosedur}
       close (FileBahanMentah.fin);

       writeln ('Meload file Bahan Olahan : ');
       writeln ('-----------------------------------------------------------------------------');
       writeln();
       assign (FileBahanOlahan.fin, 'FileBahanOlahan.txt');
       reset (FileBahanOlahan.fin);
       LoadBahanOlahan ( FileBahanOlahan , BahanOlahan); {Memanggil Prosedur}
       close (FileBahanOlahan.fin);
end.