code pascal kurs

program nilai;
uses crt;
var          a:char;
j,ntr,ntd,h,s:longint;
s1,s2:string;
begin
writeln('konversi matauang dolar dan rupiah ');
writeln('pilh matauang(r/dolar enter)') ;readln(a);
writeln;
if (a='r') or (a='d') then
begin
writeln('jumlah rupiah:');readln(j);
writeln('nilai tuakar rupiah:');readln(ntr);
h:=j div ntr ;
s:=j mod ntr  ;
s1:='dolar';
s2:='rupiah';
end
else
begin
writeln('jumlah dolar:');readln(j);
writeln('masukan niali dolar:') ;readln(ntd);
h:=j*ntd;
s1:='rupiah';
end;
writeln;
writeln('hasil ',h,'',s1);
if (a='r') then
writeln('hasil',s,'',s2);

readln;
end.