ЗАДАЧА НА ЯЗЫКЕ ПАСКАЛЬ РЕШИТЬ ЧЕРЕЗ ПРОЦЕДУРЫ И ФУНКЦИИ

[Runner]

В процедурах и функциях в паскале не могу разобраться помогите решить.ЗАРАНЕЕ СПАСИБО!

В двух массивах x длинной m ,и y длинной n,имеется по одному единственному элементу с минимальным значением.Найти номер этих элементов в обоих массивах и вывести на экран величину этих элементов с найденным индексом.

Примечание:
1)Ввод размерности массива и вывод величины наименьшего значения массива производить в основной программе.
2)Сделать все это с помощью процедуры и функции

[Levsha100]

Во-первых дайте НОРМАЛЬНОЕ НАЗВАНИЕ ТЕМЕ!!!
Где Ваши наработки?

[Ivan_32]

int Max(int* mass,int length)
{
    int temp=0;   //Минимальное значение - 0
    int number=0; //пусть для начала это будет нулевой элемент.
    for(int i=0;i<length;i++) //Обходим весь массив циклически.
    {
        if(mass[i]>temp)
        {
          temp=mass[i]; //Запоминаем новый максимальный элемент для следующего сравнения.
          number=i; //Запоминаем номер элемента.
        }
    }
    return number;
}

Считайте это псевдокодом, думаю с комментариями все будет понятно

[Runner]

А не можете написать код программы от начала и до конца? чтобы я разобрался просто тема не очень понятна

[Runner]

И вы написали мне на с++ а мне нужен паскаль!