помогите переделать прогу

[+Hitman+]

программа написана с помощью процедуры а надо её переделать с помощью функций, заранее спасибо
Код:
Program LUKen;
const
n=5; m=6;
var
i,k1,k2,k3: integer;
l1,l2,l3: integer;
a: array [1..n] of integer;
b: array [1..m] of integer;
c: array [1..10] of integer;
Procedure min (t:integer; d: array of integer; var r: integer);
var
j: integer;
begin
r:=d[0];
For j:=1 to t do if d[j] < r then r:=d[j];
end;
begin
Writeln (‘Введите элементы массива a:');
For k1:=1 to n do Readln (a[k1]);
Writeln (‘Введите элементы массива b:');
For k2:=1 to m do Readln (b[k2]);
Writeln ('Введите элементы массива c:');
For k3:=1 to 10 do Readln (c[k3]);
min (n, a, l1);
min (m, b, l2);
min (10, c, l3);
If l1 > 10 then i:=l2+l3 else i:=1+l3*l3;
Writeln ('L1=',l1:2,' ','L2=',l2:2,' ','L3=',l3:2,' ','i=',i:5);
end.

[NikLik]

const
  n = 5;
  m = 6;
var
  i: integer;
  l1, l2, l3: byte;
  a: array[1..n] of integer;
  b: array[1..m] of integer;
  c: array[1..10] of integer;

function min(d: array of integer): byte;
begin
  result := d[0];
  for i := 1 to length(d) do
    if d[i] < result then
      result := d[i];
end;
begin
  Writeln('Введите элементы массива a: ');
    for i := 1 to n do
      Readln(a[i]);
    Writeln('Введите элементы массива b: ');
    for i := 1 to m do
      Readln(b[i]);
    Writeln('Введите элементы массива c:');
    for i := 1 to 10 do
      Readln(c[i]);
    l1 := min(a); //начало
    l2 := min(b);
    l3 := min(c);
    if l1 > 10 then
      i := l2 + l3
    else
      i := 1 + l3 * l3;
    Writeln('L1=', l1: 2, ' ', 'L2=', l2: 2, ' ', 'L3=', l3: 2, ' ', 'i=', i:
    5); //конец
{    вместо отмеченного кода(начало...конец)можно написать
    if l1 > 10 then
      i := l2 + l3
    else
      i := 1 + l3 * l3;
    Writeln('L1=', min(a): 2, ' ', 'L2=', min(b): 2, ' ', 'L3=', mic(c): 2, ' ',
      'i=', i:
    5);}
end.

[-=<[Evklidd]>=-]

Это весьма просто, вот код:

Program LUKen;
const
n=5; m=6;
var
i,k1,k2,k3: integer;
l1,l2,l3: integer;
a: array [1..n] of integer;
b: array [1..m] of integer;
c: array [1..10] of integer;
Funсtion min (t:integer; d: array of integer): integer;
var
j, r: integer;
begin
r:=d[0];
For j:=1 to t do if d[j] < r then r:=d[j];
min:= r;
end;
begin
Writeln ('Введите элементы массива a:');
For k1:=1 to n do Readln (a[k1]);
Writeln ('Введите элементы массива b:');
For k2:=1 to m do Readln (b[k2]);
Writeln ('Введите элементы массива c:');
For k3:=1 to 10 do Readln (c[k3]);
l1:= min (n, a);
l2:= min (m, b);
l3:= min (10, c);
If l1 > 10 then i:=l2+l3 else i:=1+l3*l3;
Writeln ('L1=',l1:2,' ','L2=',l2:2,' ','L3=',l3:2,' ','i=',i:5);
end.

ЗЫ Извините, забыл страницу обновить.
ЗЗЫ NikLik Ваш код на Паскале не откомпилируется! Во-первых, Паскаль не знает переменной

result

, она есть только в Делфи;во-вторых, функция

length

определена, в Паскале по крайней мере, только для строк и для массива типа byte не подойдет!

[NikLik]

Извиняюсь....
Привык, знаете ли....

[+Hitman+]

Спасибо огромное, сори что не написал сразу давно не был на форуме(уежал). Спасибо