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

[Дмитрий132]

Необходимо решить задачу..
Создать процедуру, вычисляющую количество заданных элементов в одномерном массиве.(причем элементы массива должен вводить сам пользователь при компиляции)

procedure TForm1.Button2Click(Sender: TObject);
var n,j:integer; r:string; a:array [1..100] of integer;
begin
n:=strtoint(Edit2.text);
for j:=1 to n do
begin
r:=InputBox('Введите последовательность ', 'a' +Inttostr(j), '0');
a[j]:=strtoint(r);
ListBox1.Items.Add(Inttostr(a[j]));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
procedure kolichestvoelementov(var k,i,c,n:integer{; mas:ARRAY{[1..10]} of integer});
begin
k :=0;
n:=strtoint(edit1.text);
for i:= 1 to n do
begin
if mas[i]=c then
inc(k); // или k :=k+1
end;
end;

var
c,k,n,j:integer; r:string;

begin

c:=strtoint( edit1.text);
kolichestvoelementov(c);
label3.caption:=inttostr(c);
end;

[ZX Spectrum-128]

Где-то я уже это видел... (с)
Массив а, в который нужно данные занести, крутится сам по себе. Без связи с внешним миром.