Задан файл F, компонентами которого являются численные массивы X [15]. Найти минимальные элементы каждого из массивов и вывести в выходной файл.

const nmax=100;
      n=15;
type mas=array[1..nmax] of integer;
     fail=file of mas;
var f:fail;
    g:file of integer;
    a:mas;
    m,i,j:byte;
    mn:integer;
begin
clrscr;
randomize;
assign(f,'filef');
rewrite(f);
assign(g,'fileg');
rewrite(g);
repeat
write('Сколько компонент записать в файл(до ',nmax,') m=');
readln(m);
until m in [1..nmax];
for i:=1 to m do
 begin
  for j:=1 to n do
  a[j]:=random(50)+1;
  write(f,a);
 end;
writeln('Содержание исходного файла F:');
{открываем}
reset(f);
while not eof(f) do
 begin
  read(f,a);
  mn:=a[1];
  for i:=1 to n do
   begin
    if a[i]<mn then mn:=a[i];
    write(a[i]:3);
   end;
  write(g,mn);
  writeln;
 end;
close(f);
reset(g);
writeln('Минимальные элементы массивов:');
for i:=0 to filesize(g)-1 do
 begin
  seek(g,i);
  read(g,mn);
  write(mn:3);
 end;
close(g);
readln
end.