Паскаль!!!

[Алексей НТ]

Помогите пожалуйста написать блок-схему к данному заданию....

Вводится массив из N целых положительных чисел. Определить наименьшую цифру у каждого числа. Написать подпрограмму, которая для заданного числа возвращает в нем наименьшую цифру

[Hacker19_90]

function GetMinValue (num: LongInt): byte;
var
  min: byte;
begin
  min := 9;
  while num <> 0 do begin
    if (num mod 10) < min then min := num mod 10;
    num := num div 10;
  end;
  GetMinValue := min;
end;

[Алексей НТ]

А алгоритм можно пожалуйста??

[Hacker19_90]

Алгоритм чего?

[Алексей НТ]

что в заданиии написано надо составить алгоритм работы программы,в ввиде схем

[Hacker19_90]

Мне рисовать лень!