Error: 26 Type mismatch. รบกวนช่วยดูโปรแกรม pascal ผมทีครับ

program program1;
uses wincrt;

var ch:char;
    b,i,M:integer;
   
begin
     write('input M : ');readln(M);
     write('input char : ');readln(ch);
     b:= M mod 2;
     if (M>1) and(b<>0) then
     begin
         for i:=1 to (M-1)*0.5 do
         write('*');
     end;
end.