Помогите пожайлуста доработать програму на Пскале

условие задачи;
Написать программу определения стоимости телефонного разговора при 20% скидки в суботу и воскересенье.
вроде бы написал прогу но она выдает ошибку "26" несовместимость типа,помогите пожайлуста доработать. заранее спасибо


program lab4;
uses crt;
var
c:real;
k:byte;
den:string;
vartist:integer;
begin
clrscr;
writeln('zеna za minuty');
readln(c);
writeln('kolichestvo minut v den');
readln(k);
if (den ='vuxodnoi') then
stoimost:=(c*k-0.2*c*k)
else
if(den='bydni') then stoimost:=c*k
else writeln('vvedit pravilno dni');
writeln('stoimost=',stoimost)
end.