Нужно написать программы(консольное приложение) в делфи

[Яночка190]

Нужно написать программы(консольное приложение) в делфи
самым простым способом без процедуры,функции и без рандомайза
22. Даны две матрицы. В каждой матрице вычислить минимум из положительных нечетных элементов и найти сумму этих минимумов.

[Человек_Борща]

Пишите, выполню.

[MariaD]

вот что вышло.еще немного додумать надо.вечером додумаю.на зачет пора идти

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
const n=2; m=2;
Var
 a:array[1..n,1..m] of integer;
 b:array[1..n,1..m] of integer;
 i,j,min1,min2:integer;
 s:Real;

Begin
  s:=0;
  For i:=1 to n do
  for j:=1 to  m do
  Readln(A[i,j]);

 min1:= A[1,1];
 For i:=1 to n do begin
    For j:=1 to m do
  if(A[i,j]>0) and (A[i,j] mod 2<>0)and(A[i,j]< min1) then
  min1:=A[i,j];
  End;

  min2:=B[1,1];
  For i:=1 to n do begin
    For j:=1 to n do
  if(B[i,j]>0) and (B[i,j] mod 2<>0)and(B[i,j]< min1) then
  min2:=B[i,j];
  End;
  s:=s + min1 + min2;
  Writeln('Summa=',s:8:2,' ', min1, ' ',min2);
   Readln;
end.