решение массивов

Program z;
Uses crt;
const n=4;
        m=4;
var a: array [1..n, z..m] of integer;
s,i,j: integer;
begin
Clrscr;
for i:=1 to n do 
for j:=1 to m do 
a [i,j]:= random (51)
s:=0;
for i:=1 to n do begin
for j:=1 to m do 
write (a[i,j]:4);
writeln;
end;
for i:=1 to n do 
for j:=1 to m do begin
if (a[i,j] mod 2<>0) and ((i mod 2=0) and (j mod 2=0)) then 
s:=s+a[i,j]
else writeln ('таких элементов нет');
end;
Writeln ('S= ', S);
randomize;
readln;
end.

for i:=1 to n do
 if a[i]=10 then
  Write(i,'  ');

uses crt;
const count=100;
var mas:array[1..count] of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do begin
mas[i]:=random(50);
write(mas[i],' ');
end;
write('Индексы:');
for i:=1 to n do if mas[i]=10 then write(i,' ');
readkey;
end.

uses crt;
const n=4;
var a:array[1..n,1..n] of integer;
    i,j:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20)-10;
    Write(a[i,j]:4);
   end;
  Writeln;
 end;
Writeln;
Writeln;
for i:=1 to n do
 for j:=1 to n do
  if a[i,j]<0 then
   Writeln(a[i,j],' [',i,',',j,']');
Readln;
end.

uses crt;
const count=50;
type arr=array[1..count,1..count] of integer;
i,j,n,m:integer;
mas:arr;
b:boolean;
 
procedure inputmas(var mas:arr; n,m:integer);
var
 i,j:integer;
begin
for i:=1 to n do
  for j:=1 to m do mas[i,j]:=random(50)-25;
end;
 
procedure outputmas(mas:arr; n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin
  for j:=1 to m do write(mas[i,j]:4);
writeln;
end;
end;
 
begin
clrscr;
randomize;
write('n,m: ');
readln(n,m);
inputmas(mas,n,m);
outputmas(mas,n,m);
b:=false;
for i:=1 to n do begin
  for j:=1 to m do begin
if mas[i,j]<0 then begin
b:=true;
writeln('element: ',mas[i,j],' , ind: ',i);
end;
  end;
writeln;
if not b then write('v massive net otr elementov');
readkey;
end.