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

var a:array[,] of integer;
    m,n,i,j,k:integer;
    s:real;
begin
randomize;
writeln('Введите размеры массива;');
readln(m,n);
setlength(a,m,n);
writeln('Массив:');
for i:=0 to m-1 do
 begin
  for j:=0 to n-1 do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:4);
   end; 
  writeln;
 end;
writeln('Среднее арифметическое нечетных элементов в строках') ;
for i:=0 to m-1 do
 begin
  k:=0;
  s:=0;
  for j:=0 to n-1 do
  if odd(a[i,j]) then
   begin
    inc(k);
    s:=s+a[i,j];
   end; 
  if k=0 then writeln('Строка ',i+1,'=0')
  else writeln('Строка ',i+1,'=',s/k:0:2);
 end; 
end.

begin
  var mass:= Range(1, ReadlnInteger('Введите количество строк массива')).Select(x -> ReadString(x.ToString+')').ToIntegers).ToArray;
  mass.Select(x -> (x.Print(' | ').Where(x -> (integer.Parse(x.ToString[x.ToString.Length]) mod 2) = 1).Sum / x.Where(x -> (integer.Parse(x.ToString[x.ToString.Length]) mod 2) = 1).Count)).Select(x -> ' || '+x.ToString+#10).PrintLn;
end.

mass.Select(x -> (' || ' + (x.Print(' | ').Any(t -> Odd(t)) ? x.Where(t -> Odd(t)).Average().ToString() : 'Нечетных нет') + NewLine)).Println;