Podivny problem s polom

program polia;
uses crt;
var pole:array[1..20] of integer;
    min,max:integer;
    i,n:byte;

begin
     clrscr;
     write('Zadaj pocet cisel v poli: ');
     readln(n);
     gotoxy(1,3);
     writeln('Teraz zadaj ',n,' cisel:');
     readln(pole[1]);
     for i:=2 to n do begin
                           readln(pole[i]);
                           if (pole[i]) > (pole[i-1]) then max:=pole[i] else max:=pole[i-1];
                           if (pole[i]) < (pole[i-1]) then min:=pole[i] else min:=pole[i-1];
                           end;
     clrscr;
     for i:=1 to (n-1) do write(pole[i],' ');
     writeln(pole[n]);
     writeln('Najmensie cislo bolo ',min);
     write('Najvacsie cislo bolo ',max);
     repeat until keypressed;
end.

program polia;
uses crt;
var pole:array[1..20] of integer;
    min,max:integer;
    i,n:byte;

begin

     clrscr;
     write('Zadaj pocet cisel v poli: ');
     readln(n);
     writeln('Teraz zadaj ',n,' cisel:');

     readln(pole[0]);
     max:=pole[0];
     min:=pole[0];

     for i:=1 to (n-1) do begin
                           readln(pole[i]);
                           if (pole[i]) > max) then max:=pole[i] else
                           if (pole[i]) < min) then min:=pole[i];
                           end;
     clrscr;

     for i:=0 to (n-1) do write(pole[i],' ');
     writeln('Najmensie cislo bolo ',min);
     write('Najvacsie cislo bolo ',max);
     repeat until keypressed;
end.