Вpascal abc найти минимальные и максимальный элемент n и все стоящие между ними заменить нулём в промежутке (10; 50)

Program gt; var n,i,j,min,max,l,h: integer; a: array[1..1000]of integer; begin readln(n); l: =1; h: =1; max: =-maxint; min: =maxint; for i: =1 to n do begin read(a[i]); if(a[i]> max)then begin l: =i; max: =a[i]; end; if(a[i]< min)then begin h: =i;   min: =a[i]; end; end; for i: =1 to n do if  (  ((i> h)and(i< l))  or((i< h)and(i>   and  (a[i]> 10)  and  (a[i]< 50)  then write(0,' ') else write(a[i],' '); end.

Program ulitka; var sunnyday: array [1..30] of boolean; a, b, c, i: integer; begin writeln('a = '); readln(a); writeln('b = '); readln(b); b : = b * 100; randomize; for i : = 1 to 30 do begin       if random(2) = 1 then sunnyday[i] : = true else sunnyday[i] : = false; end; for i : = 1 to 30 do begin   if sunnyday[i] = true thenbegin     a : = a + 2;     if a > b then     a : = b;   end   else   begin     a : = a - 10;     if a < 0 then     a : = 0;   end;   end; writeln('дни месяца были таковы: '); for i : = 1 to 30 do begin if sunnyday[i] = true then writeln(i, '. солнечный') else writeln(i, '. пасмурный') end; writeln('к концу 30 дня местоположение улитки равно ', a, ' см над землей'); end.

Var day: array[1..30] of boolean; i, pos, tree_height : integer; begin   readln(pos, tree_height);   for i : = 1 to 30 do       day[i] : = (random(100) > 30);   for i : = 1 to 30 do begin       if day[i] then pos : = pos + 2       else pos : = pos - 10;       if pos > tree_height then pos : = tree_height;       if pos < 0 then pos : = 0;       writeln('день ', i: 2, '(', day[i]: 5,') pos = ',pos);   end;   writeln(pos); end.