Решите задачу, программирование!!! Срочно! Пожалуйста!

Вот программа, работает 100%, скопируйте в Паскаль и проверьте. Вроде то, что вам нужно.

program aaa;
Type mas= array[1..10] of integer;
Var x, y:mas;
j, n, rez1, rez2 :integer;
a,b,c,d: mas;
function poisk (a, b: mas; n:integer): integer;
Var x, k, min, max: integer;
begin
k:=0;
min:=b [ 1 ]; max:=b [ 1 ];
for x:=2 to N do
begin
if b [ x ] < min then min:=b [ x ];
if b [ x ] > max then max:=b [ x ];
end;
for x:=1 to N do
if (a [ x ] > min) and (a [ x ] < max) then k:=k+1;
poisk:=k;
end; {конец функции}
begin
writeln('Массив А ');
for j:=1 to 7 do
begin a [ j ] := Random(10); write( a [ j ],' ');end; writeln;
writeln('Массив B ');
for j:=1 to 7 do
begin b[ j ] := Random(10); write( b [ j ],' ');end; writeln;
writeln('Массив C ');
for j:=1 to 8 do
begin c [ j ] := Random(10); write( c [ j ],' ');end; writeln;
writeln('Массив D ');
for j:=1 to 8 do
begin d [ j ] := Random(10); write( d [ j ],' ');end; writeln;
rez1:=poisk(a,b,7);
rez2:=poisk(c,d,8);
writeln('Результат для массивов a и b= ', rez1);
writeln('Результат для массивов c и d= ', rez2);
end.

Язык какой?

телепаты в отпуске :)

Какой язык ??