Syntax Program Hak Pilih Pemilu

program hak_pilih_pemilu;
uses wincrt;
var hakpilih:boolean;
    status,wn:char;
    nama:string;
    umur:byte;
    coba:char;
label lagi;

begin
lagi:
writeln('Penentuan hak pilih dalam pemilu');
writeln('------------------------------->>>>>');
write('nama anda ? ');readln(nama);
writeln('Status kewarganegaraan 1.wni 2. non wni ');readln(wn);
if wn='2' then hakpilih:=false
else
begin
     write('status anda 1.menikah 2.tidak menikah ');readln(status);
     if status='1' then hakpilih:=true
     else
         begin
              write('berapa umur anda ? ');readln(umur);
              if umur>=17 then hakpilih:=true else hakpilih:=false;
         end;
end;
writeln;
if hakpilih then
   writeln('Saudara ',nama,' anda MEMILIKI hak pilih dalam pemilu tahun depan')
else
    writeln('Maaf, saudara ',nama,' TIDAK MEMILIKI hak pilih');
writeln;                                
write('mau coba lagi ? <y/t> ');readln(coba);
if coba<>'t' then goto lagi;
writeln('Terima kasih sudah mencoba program ini');
end.