error in statement??? pascal programma

[anthony68]

program zetels;
uses Wincrt;
var win,cda, pvda, sp: real;

begin
writeln ('cda');
readln(cda);
writeln('pvda');
readln(pvda);
writeln('sp');
readln(sp);



procedure coalitie;
begin
if cda+pvda+sp< 75 then
writeln('coalitienietmogelijk');
end;


begin
if (cda > pvda) and (cda > sp)
then
writeln('cda wint');

if (pvda > cda) and (pvda > sp)
then
writeln('pvda wint');

if (sp > cda) and (sp > pvda)
then
writeln('sp wint');

end;






end.