Даны три действительных числа a,b и c. Найти минимальное из этих чисел и вычислить сумму первого числа и найденного минимального числа — Pascal(Паскаль)

Минимальные и максимальные 3-х чисел.
Введите через пробел значение 3-х чисел a,b и c: 5 -6 3
Минимум равен -6 Сумма равна -1

uses crt;
var x,y,z,min:real;
begin
ClrScr;
Readln(x,y,z);
min:=x;
if (y<x) and (y<z) then
 min:=y
else
 if (z<x) and (z<y) then
  min:=z;
Writeln('Min ',min);
Writeln('S=',x+min);
Readln;
end.