При выводе числа всегда выводит 0. В чём ошибка?

[LevMark]

При выводе числа всегда выводит 0. Значения функции от любого значения раны 0. Каким образом можно это исправить?

program project2;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };

var
X: array[1..100] of integer;
Y: array[1..100] of integer;
n,d,i,j: integer;
z,a,b:real;
function minellemx1(x1:real):real;
Var i,k:integer;
begin
x1 := x[1];
for i := 2 to k do
if x[i] < x1 then x1 := x[i];
minellemx1:=x1;
end;
function minellemx2(x2:real):real;
Var j,d:integer;
begin
x2 := y[1];
for j := 2 to d do
if y[j] < x2 then x2 := y[j];
minellemx2:=x2;
end;
begin
writeln('Введите число эллементов массива* X:');
readln(n);
writeln('Введите эллементы массива* X:');
for i := 1 to n do
read(x[i]);
writeln('Введите число эллементов массива* Y:');
readln(d);
writeln('Введите эллементы массива Y:');
for j := 1 to d do
readln(y[j]);
a:= minellemx1(x[i]);
b:= minellemx2(y[j]);
z := (a - b) / 2;
writeln(z:6:1);
readln;
end.

[NetSpace]

уважаемый, а в функции у вас K чему равно в цикле? нулю? так он цикл поиска не будет выполнять. ноль выдаст и всё тут.
---------------
убери-ка всё лишнее, оставь это и разберись для начала с половинкой задачи

var
X: array[1..100] of integer;
n,d,i,j: integer;
z,a:real;
function minellemx1(x1:real):real;
Var i,k:integer;
begin
x1 := x[1];
for i := 2 to k do
if x[i] < x1 then x1 := x[i];
minellemx1:=x1;
end;

begin
writeln('Введите число эллементов массива* X:');
readln(n);
writeln('Введите эллементы массива* X:');
for i := 1 to n do
read(x[i]);

a:= minellemx1(x[i]);
writeln(a);
readln;
end.

после ввода массива X тоже значение А ноль выдаёт?
и по функции вопрос: массив чисел типа Integer, так зачем искать Real? может результатом функции тоже Integer сделать?

[evg_m]

function minellemx1(k: integer //СКОЛЬКО элементов мы реально хотим проверить 
                                            ):real;
Var 
  i, k:integer;
var
  x1: real; 
begin
  x1 := x[1];
  for i := 2 to k do
    if x[i] < x1 then x1 := x[i];
  minellemx1:=x1;
end;