паскаль контрольная

[werus]

помогите

1.задан массив А(25) поменять местами больший из десяти первых эл и мениший из оставшихся...


2.Y=(3max(2a,c)+min(a,b))\(max(a,b)-(min(b,c)

[__STDC__]

как-нибудь так..

var
	x:array[1..25] of integer;
	i,imax,imin,tmp:byte;
begin
	randomize;
	imax := 1; imin := 11;
	for i:=1 to 25 do begin
		x[i] := random(50);
		write(x[i]:4);
	end;
	
	for i:=2 to 10 do
		if (x[i] > x[imax]) then 
			imax := i;
	
	for i:=12 to 25 do
		if (x[i] < x[imin]) then
			imin := i;
			
	tmp := x[imax];
	x[imax] := x[imin];
	x[imin] := tmp;
	
	writeln;
	for i:=1 to 25 do
		write(x[i]:4);	
	readln;
end.

и

function max(x,y:integer):integer;
begin
	if (x > y) then
		max := x
	else
		max := y;
end;

function min(x,y:integer):integer;
begin
	if (x < y) then
		min := x
	else
		min := y;
end;

var
	y:real;
	a,b,c:integer;
begin
	readln(a,b,c);
	y := (3 * max(2*a,c) + min (a,b)) / max(a,b) - min(b,c);
	writeln(y);
	readln;
end.

[werus]

огромное спасибо