Ошибка в курсовой работе.

[Abay19941308]

uses graphabc,Events,ABCObjects;
const nmax=10;
type mas=array [1..nmax,1..nmax] of byte;
var Mk:array [1..10, 1..10] of PictureABC;

a: mas; n: byte;ll:PictureABC;i,j,i1,j1:integer;

                     xk,yk: integer;


procedure numb(x,y,n: integer);
begin
ll:=PictureABC.Create(x,y,'e:\êóðñîâàÿ ðàáîòà\bamboo'+inttostr(n)+'.png');
end;


procedure GenMap(var z: mas; var n: byte);
var i,j,ik,jk:byte;
begin
n:=9; ik:=random(n)+1; jk:=random(n)+1;
for i:=1 to n do
    for j:=1 to n do
        begin
        while z[ik,jk]<>0 do
              begin
              ik:=random(n)+1; jk:=random(n)+1;
              end;
        z[ik,jk]:=j;
        end;
end;

procedure DrawMap(z: mas; n: byte);
var i,j: byte; x,y: integer;
begin
n:=9;
for i:=1 to n do
    for j:=1 to n do
        begin
        xk:=25+(43*i); yk:=25+(60*j);
        numb(xk,yk,z[i,j]);
        end;end;

procedure mousedown(x,y,mb:integer);
begin
i1:=i1+1;j1:=j1+1;
Mk[i1,j1]:=pictureABC.create(x,y,'f:\êóðñîâàÿ ðàáîòà\bamboo'+inttostr(a[i,j])+'.png');
a[i1,j1]:=1;
if mk[i1,j1].ptinside(x,y)=true then begin
mk[i,j].destroy;
mk[i+1,j+1].destroy;
end;end;


begin
 GenMap(a,n);
 DrawMap(a,n);
 SetWindowSize(648,496);
 i1:=1;j1:=1;
 onmousedown:=mousedown;
end.

From Stilet: Код нужно выделять спецтегом. Попрошу делать это всегда.
ошибка
0-выход за границы диапазона изменения индкеса 1..10

Помогите решить пожалуйста эту проблему!!!
Заранее очень благодарен!!!

[Sciv]

Во-первых:

procedure mousedown(x,y,mb:integer);

и

onmousedown:=mousedown;

Не боитесь пересечения пространств имен?

Во-вторых: привязка к полному пути не есть хорошо:

ll:=PictureABC.Create(x,y,'e:\курсовая работа\bamboo'+inttostr(n)+'.png');

А вдруг на том компьютере, где Вы будете это показывать, диска "е" вообще нет?

[Poma][a]

и выделяйте код кнопочкой с #

[Sciv]

Если б мне еще сказали, как в ПаскальАБЦ установить точку останова, так я бы быстро нашел, в чем грабли
А так - однозначно могу сказать, что это где-то в процедуре МаузДаун...

[Poma][a]

Если б мне еще сказали, как в ПаскальАБЦ установить точку останова, так я бы быстро нашел, в чем грабли

Процитирую Сержа :

мой Вам совет: вообще, выкиньте Вы этих самодельных уродцев (я имею в виду Pascal ABC и Pascal ABC NET) и возьмите либо FreePascal + Lazarus, либо (лучше), если есть возможность, Delphi. и учитесь программировать с помощью настоящих средств разработки, а не этих "псевдо-паскальных" языков..

[Sciv]

Сообщение от Poma][a

Процитирую Сержа :

Согласен с Сержем. Все это надо переадресовать тем, кто топикстартеру насоветовал/попросил/приказал на pasABC курсач писать

[Poma][a]

Все это надо переадресовать тем, кто топикстартеру насоветовал/попросил/приказал на pasABC курсач писать

у меня препод в ПЕДе занятия ведет там только Trubo и Abc, пишу на Abc, только из-за взаимодействия с ОСью и //

[Abay19941308]

ну приказывают на pascal abc я то что поделаю на других языках делать не дают!!! Мол новичок еще как на паскале научишься только потом можно на более сложные переходить.Немного с делфи поработал очень понравилось а паскаль это шлак по сравнению с делфи.помогите пожалуйста скоро курсовую сдавать а я уже неделю на этой процедуре застрял.Помогите пожалуйста очень прошу на этом моусдауне на неделю застрял никак сделать немогу невыходит.

Да в маусдаун основная проблема этот паскаль уже полтора года идет уже в горле сидит пожалуйста помогите хоть чуточку!!!

[Poma][a]

других языках делать не дают

Вы путаете компиляторы и языки.

паскаль это шлак по сравнению с делфи

не соглашусь

[Abay19941308]

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