Почему 0?

[Nikita++]

В ответе 0 выводит почему-то. Почему?

program Presents;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
a,b,c,min: word;
begin
write('Number of pens: ');
readln(a);
write('Number of lineals: ');
readln(b);
b:=b div 2;
write('Number of ex.books: ');
readln(c);
c:=c div 4;
if (a<b) then a:=min
else b:=min;
if (c<min) then c:=min;
writeln('The number of sets: ',min);
readln;
end.

[Mad_Cat]

ну а кто min инициализировать будет7
может все таки

if (a<=b) then min:=a
else min:=b;
if (c<min) then min:=c;

[Nikita++]

Ой, все, понял, тема закрыта.

[Alex Cones]

А в каком месте вы присваиваете значение min?


P.S. Три ответа в один момент... Кажись на рекорд тянет.

[Nikita++]

Там не b:=min, а min:=b и т.д.