Задача: Дано три вещественных массива. Определить в каком из них находится самый маленький элемент.

Помогите найти ошибку или покажите решение, спасибо!

uses crt;
var a1:array [1..10] of real;a2:array [1..10] of real;a3:array [1..10] of real;
k1,k2,k3,i:byte;
function min(a:real):real;
var j:byte;
begin
for j:=2 to 10 do
if a[j]<min then min:=a[j];end;
begin clrscr;
for i:=1 to 10 do
read(a1[i]:3);writeln;
read(a2[i]:3);writeln;
read(a3[i]:3);writeln;
k1:=min(a1);k2:=min(a1);k3:=min(a1);
if (k1<k2) and (k1<k3) then writeln('В первом массиве');
if (k2<k1) and (k2<k3) then writeln('Во втором массиве');
if (k3<k1) and (k3<k2) then writeln('В третьем массиве');
readkey;
end.

1
Ошибок много, сейчас что-то решим

Ответы и объяснения

2013-12-24T20:27:16+04:00
Uses crt;
Const n=3;
var
A:array [1..n] of integer;
B:array [1..n] of real;
C:array [1..n] of real;
k1,k2,k3,i:integer;
function min(A1:real):real;
var j:integer;
begin
for j:=1 to n do
if A[j]<j then min:=A[j];
end;
begin clrscr;
for i:=1 to n do
Readln(A[i]);writeln;
Readln(B[i]);writeln;
Readln(C[i]);writeln;
k1:=min(A);
k2:=min(B);
k3:=min(C);
if (k1<k2) and (k1<k3) then writeln('Â ïåðâîì ìàññèâå');
if (k2<k1) and (k2<k3) then writeln('Âî âòîðîì ìàññèâå');
if (k3<k1) and (k3<k2) then writeln('Â òðåòüåì ìàññèâå');
readln;
end.
Все равно ошибка одна осталась, не знаю как её убарть