Ввести 3 числа,найти минимальное из них — Pascal(Паскаль)

program aaa;
Uses crt;
Var a,b,c,min:integer;
Begin
clrscr;
Write ('A=');
Readln (a);
Write ('B=');
Readln (b);
Write ('C=');
Readln (c);
If (a<c) and (a<b) then min:=a;
If (b<a) and (b<c) then min:=b;
If (c<a) and (C<b) then min:=c;
writeln (' Minimalnoe chislo =',min);
Readln
end.