Алгоритм Верхоффа

[Ci_jay]

Срочно нужна помощь. Надо сделать проуцедуру обработки алгоритма Верхофа.

Я его загоняю в массив через файл. дальше дело не идет. стопор.

procedure TMain.BtnrunClick(Sender: TObject);

var
a:array [0..10,0..10] of integer;
j,k:integer;
f:textfile;

begin
assignfile(f,'verxoff.txt');
reset(f);
for j:=0 to 10 do
// read(f,a[j,k]);
for k:=0 to 10 do
begin
readln(f,a[k,j]);
end;
closefile(f);
end;

Очень нужна помощь.

Как его реализовать.

http://apetrenko.com/algorithms/chec.../verhoeff.html

вот на него ссылка. Я в программировании полный чайник помогите кто чем может.