[VM]

Сообщение от IDOL 1234

гарантированный вылет:
...
var
a:array[1..10] of integer;
...
v:=a[1,1];
...

Задан одномерный массив, поэтому
var v: integer;
a:array[1..10] of integer;

v:=a[1];