Подсчитать количество подряд идущих нечетных элементов матрицы

program lab6;
uses crt;
const n=15;
type Mas=array [1..n] of integer;
var A1,A2:Mas;
k,s,i:integer;
procedure input(var A:mas;m:integer);
var i:integer;
begin
for i:=1 to m do
a[i]:=random(100);
end;
procedure print(A:mas;m:integer);
var i:integer;
begin
for i:=1 to m do
write (a[i],' ');
writeln;
end;
function otr(A:mas;m:integer):integer;
var s,k:integer;
begin
for i:=1 to m do
s:=0;
k:=0;
end;
function otr1(A:mas;m:integer):integer;
var s,k:integer;
begin
if (a[i] mod 2=1) then
begin k:=k+1;
end;
for i:=1 to m do
begin
if (k>s) then
s:=k;
end;
begin
clrscr;
randomize;
write('введите размерность массива A1');
read(m);
input(A1,n);
writeln('массив A1: ');
print(A1,n);
writeln('otric= ',otr(A1,n));
writeln('введите количество подряд идущих нечетных элементов');
read(k,s);
writeln(s,otr1(A1,n));
write('введите размерность массива A2');
read(m);
input(A2,n);
writeln('массив A2: ');
print(A2,n);
writeln('otric= ', otr(A2,n));
writeln('введите количество подряд идущих нечетных элементов');
read(k,s);
writeln(s,otr1(A2,n));
end.