type
mahasiswa = record
            nama : string[10];
            nim  : string[8];
            prodi: string[2];
            smester : Integer ; // bisa di batasi
            end;
var
mhs : mahasiswa;
baris:array[0..100] of mahasiswa;
i:Char;
x,y:Integer;
begin
i:='y';

repeat
mhs.nama := 'jojo';
 mhs.nim  := '10.11.2011';
 mhs.prodi:= 'Si';
 mhs.smester:=3; // deklarasi asli / pernyataan asli 
 Readln(i);
until i='y';

 
{with mhs do //menghendle area mhs (yang ada di dalam mhs)
begin
 nama := 'jojo';
 nim  := '10.11.2011';
 prodi:= 'Si';
 smester:=3;
end;}

 Writeln(mhs.nama,mhs.nim,mhs.prodi,mhs.smester);

 Readln;

end.