написать программу. Программка обязана исполнять ввод и печать начального одномерного

var a:array[1..10,1..10]of integer;
i,j,m,k,s:integer;
begin
for i:=1 to 10 do for j:=1 to 10 do readln(a[i,j]);
for i:=1 to 10 do begin for j:=1 to 10 do write(a[i,j],' '); if j=10 then writeln; end;

for i:=1 to 10 do
for j:=1 to 10 do
if (a[i,j]lt;gt;0) and (i mod 2=0) then s:=s+a[i,j];
writeln(s);
readln(m,k);
s:=0;
for i:=1 to 10 do
for j:=1 to 10 do
if (a[i,j]gt;=m) and (a[i,j]lt;=k) then s:=s+1;
writeln(s);
end.