Data Mahasiswa
programnya : USES CRT; TYPE RBDT = RECORD NPM : ARRAY [1..10] OF STRING [18]; NIRM : ARRAY [1..10] OF STRING [8]; NAMA : ARRAY [1..10] OF STRING [15]; ALM : ARRAY [1..10] OF STRING [15]; END; TYPE RNIRM = RECORD NIRM2 : ARRAY [1..10] OF STRING [8]; TM2 : ARRAY [1..10] OF STRING [10]; TH2 : ARRAY [1..10] OF STRING [10]; END; VAR FBDT : ARRAY [1..10] OF RBDT; FNIRM : ARRAY [1..10] OF RNIRM; FILEBDT : FILE OF RBDT; FILENIRM : FILE OF RNIRM; FILES : TEXT; FILES2 : TEXT; PIL : CHAR; N : INTEGER; LABEL RETURN; PROCEDURE INPUT_DATA; VAR I,J : INTEGER; BEGIN CLRSCR; ASSIGN(FILES,'F_BDT.TXT'); REWRITE(FILES); WRITELN(' FILE BIODATA');WRITELN;WRITELN(FILES,' FILE BIODATA');WRITELN(FILES); WRITE(' BANYAKNYA DATA : ');READLN(N);WRITELN(FILES,' BANYAKNYA DATA : ',N); FOR I := 1 TO N DO BEGIN WITH FBDT[I] DO BEGIN WRITELN(' ');WRITELN(FILES); WRITELN(' DATA KE-',I);WRITELN(FILES,' DATA KE-',I); WR...