Напишите программу которая после ввода 4 положительных чисел от 0 до 99 находит наименьшее из них

Uses crt;   
var a,b,c,d,v:integer;   
begin 
  readln (a,b,c,d); 
  if (a<b) and (a<c) and (a<d) then v:=a;   
if (b<a) and (b<c) and (b<d) then v:=b; 
if (c<a) and (c<b) and (c<d) then v:=c;
if (d<a)  and (d<b)  and (d<c) then v:=d; 
  writeln (v);
end.

тут исправленно

Вот программа, она находит наименьшее число до 99