Tugas Pemrograman Dasar_Record

uses wincrt;
type pasien=record
kode,nama:string;
tanggal,masuk:string;
bayar:real;
lama:byte;
end;

larikpas=array[1..20] of pasien;
var pas:larikpas;
i,n:byte;
lagi:char;
x:integer;

begin
lagi:='y';
while lagi='y' do
begin
inc(n);
writeln('mengisi data pasien ',n);
write('kode pasien >');readln(pas[n].kode);
write('nama pasien >');readln(pas[n].nama);
write('tanggal masuk

');readln(pas[n].masuk);
writeln;write('mau masukan data pasien lain?');readln(lagi);
end;

{transaksi}
writeln('berapa hari menginap:');
for i:=1 to n do
begin
write('pasien ', pas[i].nama, ' menginap selama : ');
readln(x); pas [i].lama:=x;

if x>=5 then
pas [i].bayar:=2000000
else pas [i].bayar:=1000000;
end;

{cetak}
clrscr;
writeln('DAFTAR NAMA PASIEN RAWAT INAP RUMAH SAKIT HAPPY LIFE');
writeln('======================================================================');
writeln(' no | kode |nama pasien|tanggal masuk| waktu menginap | membayar |');
writeln('----------------------------------------------------------------------');
for i:=1 to n do with pas[i] do
writeln(i:3,kode:6,nama:15,masuk:15,lama:10,' hari',bayar:15:2);
writeln('----------------------------------------------------------------------');
end.