alutka3

Witam
Mam problem ze skompilowaniem programu dla ubezpieczyciela pojazdów.
Program na podstawie ceny pojazdu znizek i zwyzek ma obliczyc skłądke OC
I wygląda on tak:

uses crt;
VAR
wartosc,podstawa:integer;
plec,zamieszkanie,zawod,wiek,jazda:string;

Begin
clrscr;
writeln('Podaj wartosc twojego pojazdu (pln)');
readln(wartosc);
writeln('Czy mieszkasz na wsi (t/n)');
readln(zamieszkanie);
writeln('Czy jestes kobieta (t/n)?');
readln(plec);
writeln('Czy pracujesz (t/n)');
readln(zawod);
writeln('Czy miales stluczke w ostatnim czasie (t/n)?');
readln(jazda);
writeln('Ile masz lat');
readln(wiek);
podstawa:=wartosc*0,01;

IF(zamieszkanie='t') THEN
Begin
znizka1:=podstawa-0,05;
End;
IF(plec='t') THEN
Begin
znizka2:=podstawa-0,05;
End;
IF(zawod='t') THEN
Begin
znizka3:=podstawa-0,05;
End;
IF(jazda='n') THEN
BEGIN
znizka4:=podstawa-0,1;
End;
IF(jazda='t') THEN
Begin
zwyzka1:=podstawa+0,1;
End;
IF(wiek<=25) THEN
Begin
zwyzka2:=podstawa+0,05;
End;
wysokosc skladki:=(podstawa-znizka1-znizka2-znizka3-znizka4)+zwyzka1+zwyzka2
writeln('Wysokosc skladki dla ciebie to', wysokosc skladki:2:2, zl);
end;
END.

Ja nie widze żadnego błedu ale podczas kompilowania ich pokolei troche wyskakuje.
Dokładnie wyskakuje błąd przy przecinku : podstawa:=wartosc*0,01;
Wiecie może czemu i jak to poprawić?
Z góry dziękuje za pomoc