Создать три одномерных массива, и найти их минимальные элементы

program massiv;
type matr = array [1..100] of real ;
var 
i,n,m,v: integer;
X,Y,Z: matr;
a,b,c,j : real ;
 
 
procedure zmin(z:matr;z1:integer;var zmin1:real);
var i:integer;
begin
zmin1:=z[1];
for i:=2 to z1 do
begin
if z[i]<zmin1 then
zmin1:=z[i];
end;
end;
begin
writeln('Введите размерность массива X< 100');
readln(n);
writeln('Введите массив X');
for i:=1 to n do
readln(a[i]);
 
zmin1(a,n,amin1);
writeln('Введите размерность массива Y < 100');
readln(m);
writeln('Введите массив Y');
for i:=1 to m do
readln(b[i]);
 
zmin1(b,m,bmin1);
writeln('Введите размерность массива Z< 100');
readln(v);
writeln('Введите массив Z');
for i:=1 to v do
readln(c[i]);
 
zmin(c,v,cmin1);
J := a;b;c;
 
Writeln ( ' min elementy X,Y,Z = ' ,j);
readln ;
end.

                                                                                                         program massiv;
type matr = array [1..100] of real ;
var
i,n,m,v: integer;
X,Y,Z,a,b,c: matr;
cmin1,bmin1,amin1,j:real;
 
 
 
procedure zmin(z:matr;z1:integer;var zmin1:real);
var i:integer;
begin
zmin1:=z[1];
for i:=1 to z1 do
begin
if z[i]<zmin1 then
zmin1:=z[i];
end;
end;
begin
writeln('Введите размерность массива X< 100');
readln(n);
writeln('Введите массив X');
for i:=1 to n do
readln(a[i]);
 
zmin(a,n,amin1);
writeln('Введите размерность массива Y < 100');
readln(m);
writeln('Введите массив Y');
for i:=1 to m do
readln(b[i]);
 
zmin(b,m,bmin1);
writeln('Введите размерность массива Z< 100');
readln(v);
writeln('Введите массив Z');
for i:=1 to v do
readln(c[i]);
 
zmin(c,v,cmin1);
j:=amin1;
Writeln ( ' min elementy X,Y,Z = ' ,j);
j:=bmin1;
Writeln ( ' min elementy X,Y,Z = ' ,j);
j:=cmin1;
Writeln ( ' min elementy X,Y,Z = ' ,j);
readln ;
 
end.