Вычислить в каждой матрице произведение нечётных элементов - Pascal

Формулировка задачи:

Помогите кто может((( Нужно очень очень срочно решить задачу на паскале Даны две матрицы A и B. Вычислить в каждой матрице произведение нечётных элементов. Для матрицы с меньшим произведением найти минимальный элемент и его индексы. Ввести с клавиатуры строку текста и удалить все буквы “о”. За ранее огромнейшее спасибо!!

Решение задачи: «Вычислить в каждой матрице произведение нечётных элементов»

Листинг программы

uses crt;
var s:string;
    i:byte;
begin
clrscr;
writeln('Введите строку, содержащую буквы о:');
readln(s);
for i:=length(s) downto 1 do
if s[i] in ['o','о'] then delete(s,i,1);{о латиская и русская}
if s='' then write('Все буквы удалены')
else write(s);
readln
end.

Объяснение кода листинга программы

В первой строке кода используется библиотека crt, которая является стандартной библиотекой языка Pascal и используется для ввода-вывода данных.
Переменная s объявлена как строка (тип данных string).
Переменная i объявлена как байт (тип данных byte).
Строка Введите строку, содержащую буквы о: выводится на экран с помощью функции write.
С помощью цикла for происходит обработка каждого символа в строке s.
Внутри цикла проверяется, является ли текущий символ строчной или прописной буквой 'о'. Если это так, то символ удаляется из строки s с помощью функции delete.
Если после обработки всех символов строка s осталась пустой, то выводится сообщение Все буквы удалены.
В конце программы с помощью функции readln считывается новый ввод пользователя.