[Страдалецъ]

Молодца, ну а почему код который я привел ранее будет плохо работать, а вот этот уже лучше?

Код:

Var Val,i,Min: Integer;
begin
 for i := 1 to 6
 do begin
     ReadLn(Val);
     if i = 1 then Min := Val;
     if Val < Min then Min := Val;
     end;
 WriteLn(Min);
 ReadLn;
end.

Постарайтесь подробнее объяснить.