Из заданной матрицы А(7х5), элементы которой формируются как массив случайных чисел,

Из заданной матрицы А(7х5), элементы которой формируются как массив случайных чисел, сформировать одномерный массив В, состоящий из малых частей столбцов матрицы. Во опять сформированном массиве В определить среднее арифметическое частей. Начальную матрицу А и полученный массив В записать в текстовый файл.
Ниже есть наработка:
uses crt;
var a:array[1..5,1..7] of integer;
b:array[1..7] of integer;
f:text;
min,j,i,m:integer;
begin
assign(f,'Итог задачки 1.1.txt');
rewrite(f);
begin
clrscr; randomize;
writeln('Матрица А:');
for i:=1 to 5 do
begin
for j:=1 to 7 do
begin
a[i,j]:=random(100)-50;
write(a[i,j]:4);
if i=j then
b[i]:=a[i,j];
end;
writeln;
end;
writeln;
writeln('Начальный массив В:');
for i:=1 to 7 do
write(b[i]:4);
writeln;

for i:=1 to 7 do
begin
if b[i] begin
min:=b[i];
m:=i;
end;
end;
writeln;

writeln('Малый элемент b[',m,'] = ',b[m]);

readkey;
writeln;
writeln(f,a[i,j],b[i]);
writeln(f,' ');
end;
close(f);
end.