Program naim4; var a,b,c,d,min: real; begin; writeln

Program naim4; var a,b,c,d,min: real; begin; writeln ('введите 4 числа'); readln; min: =a; if b < min then min: =b; if c < min then min: =c; if d < min then min: =d; writeln ('минимальное ',min); readln; end. Нужно найти минимальное число из 4 данных. Что не так?