Даны 4 числа,найти минимальное,язык паскаль

Program gt;
var a,b,c,d,min:integer;
begin
read(a,b,c,d);
min:=a;
if(b<min)then min:=b;
if(c<min)then min:=c;
if(d<min)then min:=d;
writeln(min);
end.
Если там вещественные числа то в var-е вместо integer напиши rel