пользовательские процедуры и функции Опции

[Катерина Рез.]

1. Составить функцию, вычисляющую в целом N нет одинаковых цифр. (при помощи логической функции Boolean, которая выводила бы значение false, true).
2. Составить процедуру для вычисления количества точек внутри окружности с заданным центром с целоисленными координатами.
3. В массивах X и Y находятся координат точек на плоскости. Определить наименьшую длину отрезка 2-х точек.
4. В квадратной матрице заполнить единицами все элементы главной диагонали и выше, остальные - нулями.
5. Аппроксимировать производную f(x) в точке x₀ ('икс нулевое') с шагом dx.

[Катерина Рез.]

Доброго времени суток.
Я совсем запуталась с задачкой(Умножение прямоугольных матриц 2 на 3 и матрицы 3 на 2). Нужно при помощи функции или процедуры, если есть у кого желание..скажите пожалуйста,что нужно сделать чтобы программа работала. в результате произведения у меня получается матрица, сосстоящая из нулей или ошибка error 26 при добавлении строчки s:=Pr(X,Y,Z), а хочется верный ответ.

program lab73;

type Matrice=array[1..5,1..5] of longint;
var X:Matrice;
    Y:Matrice;
    Z:Matrice;
    s:integer;
    i,j,k:integer;
Function Pr(X:Matrice;Y:Matrice;Z:Matrice):real;

begin
s:=s+X[i,k]*Y[k,j];
Z[i,j]:=s;
end;

begin
writeln('nahogdenie proizvedenia dvyh matric.');
writeln('vvedite poocheredno elementy 1y matricy: ');
for i:=1 to 2 do
for j:=1 to 3 do
begin
write('X[',i,',',j,']= ');
readln(X[i,j]);
end;
writeln('vvedite poocheredno elementi 2y matricy: ');
for i:=1 to 3 do
for j:=1 to 2 do
begin
write('Y[',i,',',j,']= ');
readln(Y[i,j]);
end;
begin
for k:=1 to 2 do
s:=Pr(X,Y,Z);
Z[i,j]:=s;
end;
writeln;
writeln('polychennai matrica: ');
for i:=1 to 2 do
begin
for j:=1 to 2 do
write(Z[i,j]:5);
writeln;
end;
readln;
end.