ช่วยแก้ งานให้ ผม หน่อย คับ ภาษา pascal

[toomdemon]

โปรแกรมแปลงค่าเงิน สกุลต่างๆ ผม ลองเขียนแล้ว RUN ไม่ได้ช่วยแก้ให้ผมด้วยนะคับ
program teat1;
uses Crt;
var baht,donller,euro,yen,money:integer;
begin
Clrscr;
writeln('inset you money=');
writeln('1.donller');
writeln('2.euro');
writeln('3.yen');
writeln;
case money of
'1donller':begin
write('baht='); readln(baht);
write('donller='); readln(donller);
money: 30*donller*baht=;
writeln('money donller=');
end;
'2euro' :begin
write('baht='); readln(baht);
write('euro='); readln(euro);
money: 50*euro*baht=;
writeln('money euro=');
end;
'3yen' :begin
write('baht='); readln(baht);
write('yen='); readln(yen);
money 40*yen*baht=;
writeln('money yen=');
end;
readln;
End.