Prosim pomozte..., maxima v pascale

program minmax;
uses crt;
var min,predmin,max,predmax,i,b: integer;
    cisla: array[1..10] of integer;
const n=10;
begin
        clrscr;
        write('Napiste 10 cislic: ');
        for i:=1 to n do read(cisla[i]);

        min:=cisla[1];
        max:=cisla[1];
        for i:=2 to n do begin
                if cisla[i] > max then max:=cisla[i];
                if cisla[i] < min then min:=cisla[i];
                end;
        if max<>cisla[1] then predmax:=cisla[1]
                else predmax:=cisla[2];
        if min<>cisla[1] then predmin:=cisla[1]
                else predmin:=cisla[2];
        for i:=2 to n do begin
                if (cisla[i]>predmax) AND (cisla[i] < max) then predmax:=cisla[i];
                if (cisla[i]<predmin) AND (cisla[i] > min) then predmin:=cisla[i];
                end;
        writeln('Najvacsie cislo je ',max,', druhe najvacsie je ',predmax);
        writeln('Najmensie cislo je ',min,', druhe najmensie je ',predmin);
        readkey;
end.

if max<>cisla[1] then predmax:=cisla[1]

if max<>cisla[1]