Двудольные графы

[Капелька]

задача: поиск наибольшего паросочетания в двудольном графе

program q;
uses crt;
const
max=9;
t:boolean=true;
f:boolean=false;
var
a:array[1..max,1..max] of integer;
v:array[1..max] of boolean;
r:array[1..max] of integer;
n, m, i, j, cnt: integer;

 function piosk(j:integer): boolean;
  {пытается найти вершине j пару}
  var i: integer;
   begin
    if v[j] then
    {j в текущем паросочетании уже просмотрена}
      begin
       piosk:=false;
       exit
      end;
    v[j]:= true;
    for i:= 1 to n do
     if (a[i, j]<>0) {ребро между i и j существует}
      and ((r[i] = 0) {у i еще нет пары}
       or {пару i можно пристроить к другой вершине, для чего нужно построить чередующуюся цепочку}
        piosk(r[i])) then
             begin
              piosk:=true;
              r[i]:=j;
              exit
             end;
    piosk:=false
    end;

procedure Matrix;
begin
write('Введите количество вершин: ');
read(m);
writeln('Введите матрицу паросочетания:');
for i:=1 to m do
 for j:=1 to m do
  begin
   write('a[',i,',',j,']=');
   read(a[i,j]);
  end;
//вывод матрицы
for i:=1 to m do
 begin
 for j:=1 to m do
 write(a[i,j],' ');
  writeln;
  end;
end;


begin
clrscr;
Matrix;{здесь вводим описание графа}
//fillchar(r,sizeof(r),0);
cnt:=0;{счетчик ребер в паросочетании}
for j:= 1 to m do
{каждой вершине одного из множеств пытаемся найти пару}
  begin
   //fillchar(v, sizeof(v),false);
   
   if piosk(j) then inc(cnt)
  end;
writeln(cnt);
 for i:= 1 to n do
  if r[i] <> 0 then
   write(i,' ',r[i])
  end.

выдает ошибку на fillchar, помогите пожалуйста(((

[mihali4]

Слушаемся, о повелитель !
Разрешите приступить ?

А может, стоит прочесть правила раздела "Паскаль", а ?
П.7 - о-о-очень интересный...
Перенесено.

[Капелька]

sorry, моя ошибка, не прочитала ранее( спасибо...