Data Mahasiswa with Turbo Pascal

PROGRAM MENU_FILE;
USES CRT;
TYPE    MHS = RECORD
                        NAMA     : ARRAY [1..30] OF STRING [15];
                        ALAMAT : ARRAY [1..30] OF STRING [15];
                        KELAS     : ARRAY [1..30] OF STRING [5];
            END;
VAR    FILEMHS         : FILE OF MHS;
            RECORDMHS : ARRAY [1..50] OF MHS;
            PIL                : CHAR;
LABEL RETURN;
PROCEDURE INPUT_DATA;
    VAR N,I : INTEGER;
    BEGIN
        CLRSCR;
        ASSIGN(FILEMHS,'M_SISWA.DAT');
        REWRITE(FILEMHS);
        WRITE(' BANYAKNYA DATA : ');READLN(N);
        FOR I := 1 TO N DO
        BEGIN
            WITH RECORDMHS[I] DO
                BEGIN
                    WRITELN;
                    WRITELN(' DATA KE-',I);
                    WRITE(' NAMA MAHASISWA : ');READLN(NAMA[I]);
                    WRITE(' ALAMAT                      : ');READLN(ALAMAT[I]);
                    WRITE(' KELAS                          : ');READLN(KELAS[I]);
                END;
            WRITE(FILEMHS,RECORDMHS[I]);
        END;
        CLOSE(FILEMHS);
    END;
PROCEDURE ADD_DATA;
    VAR N,I,X : INTEGER;
    BEGIN
        CLRSCR;
        ASSIGN(FILEMHS,'M_SISWA.DAT');
        RESET(FILEMHS);
    N := FILESIZE(FILEMHS);
        IF IORESULT <> 0 THEN REWRITE(FILEMHS);
        SEEK(FILEMHS,N);
        WRITE(' BANYAKNYA DATA TAMBAHAN = ');READLN(X);
        FOR I := 1 TO X DO
        BEGIN
            WRITELN;
            WRITELN(' BANYAKNYA DATA = ',N);
            N := N + 1;
            WITH RECORDMHS[N] DO
            BEGIN
                WRITELN;
                WRITELN(' DATA KE-',N);
                WRITE(' NAMA MAHASISWA : ');READLN(NAMA[N]);
                WRITE(' ALAMAT         : ');READLN(ALAMAT[N]);
                WRITE(' KELAS          : ');READLN(KELAS[N]);
            END;
            WRITE(FILEMHS,RECORDMHS[N]);
        END;
        CLOSE(FILEMHS);
    END;
PROCEDURE EDIT_DATA;
    VAR    FOUND : BOOLEAN;
            MORE    : CHAR;
            NAME    : STRING[15];
            N,I   : INTEGER;
    BEGIN
        CLRSCR;
        ASSIGN(FILEMHS,'M_SISWA.DAT');
        RESET(FILEMHS);
        N := FILESIZE(FILEMHS);
        MORE := 'Y';
        WHILE UPCASE(MORE) = 'Y' DO
        BEGIN
            FOUND := FALSE;
            WRITE(' NAMA MAHASISWA YANG MAU DI-EDIT DATANYA : ');READLN(NAME);
            FOR I := 1 TO N DO
            BEGIN
                SEEK(FILEMHS,I-1);
                READ(FILEMHS,RECORDMHS[I]);
                IF RECORDMHS[I].NAMA[I] = NAME THEN
                BEGIN
                    FOUND := TRUE;
                    WITH RECORDMHS[I] DO
                    BEGIN
                        WRITELN;
                        WRITELN(' DATA YANG AKAN DIKOREKSI');
                        WRITELN(' NAMA MAHASISWA : ',NAMA[I]);
                        WRITELN(' ALAMAT                      : ',ALAMAT[I]);
                        WRITELN(' KELAS                          : ',KELAS[I]);
                        WRITELN;
                        WRITELN(' DATA KOREKSI');
                        WRITE(' NAMA MAHASISWA : ');READLN(NAMA[I]);
                        WRITE(' ALAMAT                      : ');READLN(ALAMAT[I]);
                        WRITE(' KELAS                          : ');READLN(KELAS[I]);
                        WRITELN;
                    END;
                END;
                SEEK(FILEMHS,I-1);
                WRITE(FILEMHS,RECORDMHS[I]);
            END;
            IF NOT FOUND THEN
            WRITELN(CHAR(7),' DATA TIDAK ADA');
            WRITE(' EDIT DATA LAGI (Y/T) ? ');READLN(MORE);
            WRITELN;
        END;
        CLOSE(FILEMHS);
    END;
PROCEDURE LINES;
    VAR I : INTEGER;
    BEGIN
        FOR I := 1 TO 43 DO
        WRITE('-');
    END;
PROCEDURE VIEW_DATA;
    VAR N,I : INTEGER;
    BEGIN
        CLRSCR;
        ASSIGN(FILEMHS,'M_SISWA.DAT');
        RESET(FILEMHS);
        WHILE NOT EOF(FILEMHS) DO
        BEGIN
            N := FILESIZE(FILEMHS);
            FOR I := 1 TO N DO
            BEGIN
                READ(FILEMHS,RECORDMHS[I]);
                WITH RECORDMHS[I] DO
                BEGIN
                    GOTOXY (35,2);WRITELN('DATA MAHASISWA');
                    GOTOXY (20,4);LINES;
                    GOTOXY (21,5);WRITELN('NO       NAMA           ALAMAT      KELAS');
                    GOTOXY (20,6);LINES;
                    GOTOXY (21,6+I);WRITE(I:2);
                    GOTOXY (25,6+I);WRITE(NAMA[I]);
                    GOTOXY (41,6+I);WRITE(ALAMAT[I]);
                    GOTOXY (57,6+I);WRITELN(KELAS[I]);
                END;
            END;
            GOTOXY (20,7+I);LINES;
        END;
        CLOSE(FILEMHS);
        READLN;
    END;

BEGIN
    REPEAT
        RETURN :
            CLRSCR;
            GOTOXY (28,3);WRITELN('<<< MENU FILE >>>');
            GOTOXY (23,5);WRITELN('1. FILE BARU DAN INPUT DATA');
            GOTOXY (23,6);WRITELN('2. TAMBAH DATA');
            GOTOXY (23,7);WRITELN('3. KOREKSI DATA BERDASAR NAMA');
            GOTOXY (23,8);WRITELN('4. TAMPILKAN DATA');
            GOTOXY (23,9);WRITELN('5. SELESAI');
            GOTOXY (23,11);WRITE('PILIHAN ANDA : ');READLN(PIL);
            IF NOT (PIL IN ['1'..'5']) THEN
            BEGIN
                WRITELN(CHAR(7));
                GOTOXY (23,13);WRITELN('PILIH YANG BENER DONG !!!');
                READLN;
                GOTO RETURN;
            END;
            CASE PIL OF
                '1' : INPUT_DATA;
                '2' : ADD_DATA;
                '3' : EDIT_DATA;
                '4' : VIEW_DATA;
            END;
    UNTIL PIL = '5';
END.