Цель задачи: Вводим дату и программа показывает день недели., помогите найти ошибку Опции

[slipknot178]

	
var

a,b,c: integer; 

p,v,s,f: real;

begin

write (’Введите число:’);

readln (a);

writeln (‘Введите месяц’);

readln (b);

writeln ('Введите год');

readln ©;

p:=(c mod 4);
v:=(c div 4);

if p=0 then case b of
	    1: b:=31;
	    2: b:=2*31-3;
            3: b:=3*31-3;
	    4: b:=4*31-4;
	    5: b:=5*31-4;
  	    6: b:=6*31-5;
	    7: b:=7*31-5;
	    8: b:=8*31-5;
	    9: b:=9*31-6;
	    10: b:10*31-6;
	    11: b:=11*31-7;
	    12: b:=12*31-7;
	    else
	    end;
		s:=v*364+(c-v)*365+b+a;
		f:=s div 7;
		case f of
			0: writeln ('воскресение');
			1: writeln ('понедельник');
			2: writeln ('вторник');
			3: writeln ('среда');
			4: writeln ('четверг');
			5: writeln ('пятница');
			6: writeln ('суббота');
		end;
       else case b of
	    1: b:=31;
	    2: b:=2*31-2;
            3: b:=3*31-2;
	    4: b:=4*31-3;
	    5: b:=5*31-3;
  	    6: b:=6*31-4;
	    7: b:=7*31-4;
	    8: b:=8*31-4;
	    9: b:=9*31-5;
	    10: b:10*31-5;
	    11: b:=11*31-6;
	    12: b:=12*31-6;
	    else
	    end;
		s:=v*364+(c-v)*365+b+a;
		f:=s div 7;
		case f of
			0: writeln ('воскресение');
			1: writeln ('понедельник');
			2: writeln ('вторник');
			3: writeln ('среда');
			4: writeln ('четверг');
			5: writeln ('пятница');
			6: writeln ('суббота');
		end;
readln;
end.