Program Pascal input output

Program survei;

var

nd,l,nb,h:string;

nb:string;

umur,ti,ta,jk,:integer;

procedure judul;

begin

writeln('---------------------------------------------------------------');

writeln('*                  program survei                             *');

writeln('---------------------------------------------------------------');

end;

begin

clrscr;

judul;

write('masukan nama depan: ');    readln(nd);

write('masukan nama belakang: '); readln(nb);

write('halo ',nd,'',nb,' apa kabar');

readln;

clrscr;

judul;

write('berapa usia kamu ',nb,' : '); readln(umur);

write('dimana kamu lahir ',nb,': '); readln(l);

write('Apa Hobi Kamu: '); readln(h);

clrscr;

judul;

write('masukan jenis kelamin(1=laki/2=perempuan): ' ); readln(jk);

write('masukan tinggi anda: ' );        readln(ti);

if jk >= 2  then

ta:=170- ti

else

if jk <= 1 then    ta:= 186- ti; 

if ta <= 0 then    writeln('tinggi anda ideal')   

  else  if ta > 0 then

writeln('tinggi anda belum ideal kurang ',ta,' cm lagi');

readln;

clrscr;

judul;

writeln('Profil Kamu');

writeln('Nama Lengkap : ',nd,'',nb);

writeln('Umur         : ',umur);

writeln('Tempat Lahir : ',l);

writeln('Hobi         : ',h);

writeln('Tinggi       : ',ti);

readln;

end.