Подключение мыши, (программа Кроссворд) Опции

[-LOVE133-]

скачала несколько юнитов для работы с мышью, но при запуске программы требует файл типа TPU , а все юниты просто с расширение PAS. что в этих ситуациях обычно делают?

[LOVE133]

вчера вечером посидела, вот что получилось

Код

procedure increm(i,j:integer;n:integer;  var a:array [1..10,1..10] of byte);
begin                
if a[i,j]=0  
  then

  begin
   if (i<n) and (j<n) then
     begin
      increm(i+1,j,n,a);
      increm(i,j+1,n,a);
     end;
  end

else

if  a[i+1,j]=0 then
begin
  if (i<n) and (j<n) then
  increm(i+1,j,n,a) ;
  end

else
begin
a[i+1,j]:=a[i,j]+1;
if (i<n) and (j<n) then
increm(i+1,j,n,a);
end;
if  a[i,j+1]=0 then
begin
  if (i<n) and (j<n) then
  increm(i,j+1,n,a) ;
  end

else
begin
a[i,j+1]:=a[i,j]+1;
if (i<n) and (j<n) then
increm(i,j+1,n,a);
end;
end;

но почему-то работает только вправо и вниз, а мне нужно, чтоб она еще влево шла и вверх проверяла ..
показательный пример в файле