Что тут неправильно?

var a:array[1 ... 10,1 ... 10] of integer;

i, m, n, j, k: integer;

s:real;

begin

Write ('m=') ; readln (m) ;

write ('n=') ; readln (n) ;

for i:=1 to m do

for j:=1 to n do

a[i, j]:=random (50) ;

for i:=1 to n do

begin for j:=1 to m do

write (a[i, j]:4) ; writeln; end;

for i:=0 to m do

begin for j:=0 to n do

begin if a[i][j]=0 then

begin a[i][j]:=i+j; end; end; end;

a[i, j]:=k; writeln ('k=', k) ; end.

Дан массив. Изменить массив по следующему правилу Все нулевые элементы заменить суммой индексов элемента;

Ты объявила массив от 1 до 10, а в конце в цикле пытаешься обратиться к элементу с индексом 0!

(for i:=0 to m do

begin for j:=0 to n do)

Ну и куча мелких недочетов еще тут есть

const

n=5;

m=6;

var

a:array[1 ... n, 1 ... m] of integer;

i, j: integer;

begin

writeln ('Исходный массив:') ;

for i:=1 to n do

begin

for j:=1 to m do

begin

a[i, j]:=random (10) ;

write (a[i, j]:4) ;

end;

writeln;

end;

writeln ('Измененный массив:') ;

for i:=1 to n do

begin

for j:=1 to m do

begin

if a[i, j]=0 then a[i, j]:=i+j;

write (a[i, j]:4) ;

end;

writeln;

end;

end.

Var a : array[1 ... 10,1 ... 10] of integer;