помогите пожалуйста, на первой - задания 3,4,5, на второй  -  1,2,3 

program chik1;var n:integer;b,c:real;i:integer;a:array[1..1000]of real;beginreadln(n);for i:=1 to n doread(a[i]);readln(b,c);for i:=1 to n dobeginif(a[i]>b)then a[i]:=c;write(a[i],' ');end;end.2)program chik2;var n:integer;s:real;i,k:integer;a:array[1..1000]of real;beginreadln(n);s:=0;k:=0;for i:=1 to n dobeginread(a[i]);if(a[i]>0)then s:=s+a[i];if(a[i]<0)then k:=k+1;end;write(s,' ',k);end.3)program chik3;var n:integer;max:real;i,k:integer;a:array[1..1000]of real;beginreadln(n);for i:=1 to n doread(a[i]);max:=a[1];k:=1;for i:=2 to n doif(a[i]>max)then beginmax:=a[i];k:=i;end;writeln(max,' ',k);n:=n-1;for i:=k to n doa[i]:=a[i+1];for i:=1 to n dowrite(a[i],' ');end.4)program chik4;const q=3;var n:integer;max:real;i,k:integer;a:array[1..1000]of real;beginreadln(n);for i:=1 to n doread(a[i]);max:=a[1];k:=1;for i:=2 to n doif(a[i]>max)then beginmax:=a[i];k:=i;end;writeln(max,' ',k);n:=n+1;for i:=n downto k+1 doa[i]:=a[i-1];a[k]:=q;for i:=1 to n dowrite(a[i],' ');end.5)program chik5;var n:integer;s,max:real;i,k:integer;a:array[1..1000]of real;beginreadln(n);for i:=1 to n doread(a[i]);max:=a[1];k:=1;for i:=2 to n doif(a[i]>max)then beginmax:=a[i];k:=i;end;s:=a[1];a[1]:=a[k];a[k]:=s;for i:=1 to n dowrite(a[i],' ');end.6)program chik6;var n:integer;max,min:real;i,k,p:integer;a:array[1..1000]of real;beginreadln(n);for i:=1 to n doread(a[i]);max:=a[1];k:=1;p:=1;min:=a[1];for i:=2 to n dobeginif(a[i]>=max)then beginmax:=a[i];k:=i;end;if(a[i]<min)then beginmin:=a[i];p:=i;end;end;for i:=1 to n dobeginif ( (i<k) and (i>p) ) or ( (i>k) and (i<p) )then a[i]:=0;write(a[i],' ');end;end.