Int overflow. Исправьте ошибки var c,a:integer;. что означает the end. int d = ~9;.