Составьте программу в паскале,в которой нужно найти наименьшее из двух чисел

Program f1;

var a,b,max, min:real;

begin 

writeln ('vvedine chisla');

readln (a,b);

if (a>b) then (a:=max) else a:=min;

writeln ('max=',max , 'min=',min);

readln;

end.

Program chislo;

var a,b,min:real;

begin 

writeln ('vvedine chisla a and b');

readln (a,b);

if (a>b) then min:=b ; else min:=a

writeln ( 'min=',min);

readln;

end.

В верхнем решении находим max который неуказан в задании  , поэтому это лишнее !