В чем ошибка? "Ожидалась закрывающая скобка"

function name (A: array [1..8,1..10] of integer;
               B: array [1..4,1..8] of integer;
               C: array [1..3,1..7] of integer;
               var k1, k2, k3, i, j: integer;): {Вот здесь и вылезает это сообщение}integer;
begin
k1:=0; k2:=0; k3:=0;
if A[i,j]<0 then begin k1:=k1+1;
writeln ('Отрицательный - ',k1); end;
if A[i,j]=0 then begin k2:=k2+1;
writeln ('Нулевой - ',k2); end;
if A[i,j]>0 then begin k3:=k3+1;
writeln ('Положительный - ',k3);
end; end;

const
  nmax = 10;
  
{определяем тип матрицы}
type
  TAr = array[1..nmax, 1..nmax] of integer;
 
function count1(a: TAr; n, m: integer): integer;
var
  i, j,k : integer;
begin
  k:=0;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]>0 then inc(k);
  count1:=k;
end;
{для равных нулю и отрицательных составляем подобные функции}

program {здесь оно и вылезает} poisk;
var A: array [1..8,1..10] of integer;
    B: array [1..4,1..8] of integer;
    C: array [1..3,1..7] of integer;
i, j: integer;
begin
randomize;
writeln ('Массив A');
for i:=1 to 8 do begin
for j:=1 to 10 do begin
A[i,j]:=random(50)-10;
write (A[i,j]:4);
end; writeln; end;
writeln ('Массив B');
for i:=1 to 4 do begin
for j:=1 to 8 do begin
B[i,j]:=random(50)-10;
write (B[i,j]:4);
end; writeln; end;
writeln ('Массив C');
for i:=1 to 3 do begin
for j:=1 to 7 do begin
C[i,j]:=random(50)-10;
write (C[i,j]:4);
end; writeln; end;
writeln ('Задание');
name (A, B, C);
end.

function name (a:=TAr; n,m:integer): integer;

type TAr = array[1..nmax, 1..nmax] of integer;

program poisk;
const nmax = 10;
var type //Здесь появляется сообщение "Ожидался идентификатор, но "type" обнаружено. 
    TAr: array[1..nmax, 1..nmax] of integer;
 
    A: array [1..8,1..10] of integer;
    B: array [1..4,1..8] of integer;
    C: array [1..3,1..7] of integer;
i, j: integer;
function name (a:=TAr; n,m:integer): integer;   
var k, i, j: integer;
begin
k:=0;
for i:=1 to n do
for j:=1 to m do
if TAr[i,j]<0 then inc(k);
writeln ('Отрицательных - ',k);
if TAr[i,j]=0 then inc(k);
writeln ('Нулевых - ',k);
if TAr[i,j]>0 then inc(k);
writeln ('Положительных - ',k);
end;                                
 
begin                        
randomize;
writeln ('Массив A');
for i:=1 to 8 do begin
for j:=1 to 10 do begin
A[i,j]:=random(50)-10;
write (A[i,j]:4);
end; writeln; end;
writeln ('Массив B');
for i:=1 to 4 do begin
for j:=1 to 8 do begin
B[i,j]:=random(50)-10;
write (B[i,j]:4);
end; writeln; end;
writeln ('Массив C');
for i:=1 to 3 do begin
for j:=1 to 7 do begin
C[i,j]:=random(50)-10;
write (C[i,j]:4);
end; writeln; end;
end.

const
  nmax = 10;
 
type
  TAr = array[1..nmax, 1..nmax] of integer;
 
var
  A,B,C: TAr;
  i,j: integer;

function name (a: TAr; n,m:integer): integer;
var k, i, j: integer;
begin
k:=0;
for i:=1 to n do
for j:=1 to m do
if TAr{Переменная не является именем массива}[i,j]<0 then inc(k);

{ функции подсчета количества положительных элементов }
function count_Max(a: TAr; n, m: integer): integer;
var
  i, j,k : integer;
begin
  k:=0;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]>0 then inc(k);
  count_Max:=k;
end;
 
{ функции подсчета количества нулевых элементов }
function count_Null(a: TAr; n, m: integer): integer;
var
  i, j,k : integer;
begin
  k:=0;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]=0 then inc(k);
  count_Null:=k;
end;
 
{ функции подсчета количества отрицательных элементов }
function count_Min(a: TAr; n, m: integer): integer;
var
  i, j,k : integer;
begin
  k:=0;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]<0 then inc(k);
  count_Min:=k;
end;

  writeln ('Задание');
  writeln('massiv-A');
  writeln('Max=',count_Max(A, 8, 10));
  writeln('Nul=',count_Null(A, 4, 8));
  writeln('Min=',count_Min(A, 3, 7));

const
  nmax = 10;
 
type
  TAr = array[1..nmax, 1..nmax] of integer;
 
function count_plus(a: TAr; n, m: integer): integer;
var
  i, j, k: integer;
begin
  k := 0;
  for i := 1 to n do
    for j := 1 to m do
      if a[i, j] > 0 then inc(k);
  count1 := k;
end;
 
function count_minus(a: TAr; n, m: integer): integer;
var
  i, j, k: integer;
begin
  k := 0;
  for i := 1 to n do
    for j := 1 to m do
      if a[i, j] < 0 then inc(k);
  count1 := k;
end;
 
function count_eq(a: TAr; n, m: integer): integer;
var
  i, j, k: integer;
begin
  k := 0;
  for i := 1 to n do
    for j := 1 to m do
      if a[i, j] = 0 then inc(k);
  count1 := k;
end;
 
var
  a, b, c: tAr;
 
begin
end.