Ты объявила массив от 1 до 10, а в конце в цикле пытаешься обратиться к элементу с индексом 0!
(for i:=0 to m do
<span>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;
<span>end.</span></span>
1.Появление первых лазерных дисков 15 декабря 1978
2. Первые следы иероглифического письма в Древнем Египте<span> к началу I династии, то есть примерно в 4 тысячелетии до н. э.
</span>3. <span>Середина XVI в.
4. </span><span>21 ноября 1877
5. </span><span>Демонстрация первого кинофильма. 1895 г.</span>
Var a, b, h, k, m, s, p, alpha:real;
begin
read(a, b, alpha);
k:=(a-b)/2;
h:=tan(alpha)*k;
m:=Sqrt(sqr(k)+sqr(h));
p:=a+b+2*m;
s:=(a+b)*h/2;
writeln('Высота равна: ', h);
writeln('Боковые стороны равны: ', m);
writeln('Периметр равен: ', p);
writeln('Площадь равна: ', s)
end.