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

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.

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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.