read new mail

im making a program that reads you your new mail
so far i have

on clicked theObject
	tell application "Mail"
		check for new mail
		set num to 1 as integer
		repeat
			set newmail to the name of the message number num of inbox as string
			display dialog newmail & return & "Read this mail?" buttons {"Yes", "No", "Quit Reading Mail"} default button 1
			set num to num + 1
		end repeat
	end tell
end clicked

it doesnt work can someone fix that and finish it for me?
this is the first time i have ever tried to script mail.
thanks