Процедуры и функции

[Nikolai17]

Создать функцию f(x)=x^2
С помощью этой функции задать массив
Создать процедуру для определяния количества четных элементов массива

наработочка...

 {$R-,Q-}
program korn;
uses crt;
var
a,b,c:array[1..10] of integer;

i:integer;

function q(b:array of integer):integer;
 var i,y:integer;  f:array[1..10] of integer;
     begin
for i:=1 to 10 do
     f[i]:=b[i]*b[i];
end;




procedure w(b:array of integer);
var
i,k:integer;
begin

 k:=0;{счётчик}

for i:=0 to 10 do begin

 if b[i]<>0 then
if b[i] mod 2 = 0 then inc(k);{Если b[i] неравно 0 тогда увеличиваем к на 1}



end;

writeln('koli4estvo 4etnbix elementov = ',k);
end;

begin
 textcolor(black);
 textbackground(white);
 clrscr;

writeln('enter massiv');
for i:=1 to 10 do read(a[i]);{читает массив}

for i:=1 to 10 do begin
 {Присваиваем удвоенные элементы масива а массиву с}

c[i]:=q(a[i]);
readln;
end;
writeln;
w(c);
readkey;
end.

какая то проблема с функцией....сначала выдавала выход за диапазон а потом при отклюении Q+ пришлось вводить 19 символов....
в чем трабл не поиму...help....please

[anGeee]

Зачем у функции q такой странный параметр "b:array of integer", хотя потом вы вызываете функцию с параметром Integer...
Плюс вы в основной программе в цикле вызываете процедуру q, в которой в свою очередь зачем-то свой цикл.. Непонятно..
Процедура q,видимо, должна быть такой

function q(a : integer) : integer;
     q := a * a;
end;