Найти минимальный элемент в массиве.Что неправильно?
var a:array [1..31] of integer;
day,i,n,min:integer;
begin
read(n);
for i:=1 to n do
read (a[i]);
min:=(a[1]);
day:=1;
for i:=2 to n do
begin
if(min begin
min:=a[i];
day:=1;
end;end;
write(day);
end.

1) Маска подсети: 11111111.11111111.11110000.00000000

     IP:                         11101000.01111110.10010110.00010010

номер сети - там где у маски единицы, а номер хоста В сети - там где у маски нули.

т.е  0110.00010010 отсюда получаем номер хоста: 0110.00010010 =1554

2)   Маска подсети: 11111111.11111111.11100000.00000000

       IP:                         11001110.10011110.01111100.01000011

Номер хоста: 11100.01000011= 7235

3)  Маска подсети:  11111111.11111111.11111100.00000000

      IP:                          11100010.10111001.01011010.10100010 

 Номер хоста: 10.10100010=674     

type Cl = class
  a:integer;
  constructor Create(b:integer);
  procedure SetVal(b:integer);
  function GetVal:integer;
  procedure Sq;
end;

constructor Cl.Create(b:integer);
begin
  a := b;
end;

procedure Cl.SetVal(b:integer);
begin
  a := b;
end;

function Cl.GetVal:integer;
begin
  GetVal := a;
end;

procedure Cl.Sq;
begin
  if a < 0 then
    writeln('a ^ 2 = ', a * a)
  else
    writeln('Error');
end;

var
  Obj:Cl;
  a :integer;
begin
  write('a = ');
  readln(a);
  Obj := Cl.Create(a);
  Obj.Sq;
  Readln;
  Obj.Destroy;
end.