Прога в ПАСКАЛЕ!

ввести матрицу а(н,н) . Найти минимальные элементы каждого столбца матрицы и переписать их в новый массив б. Найти сумму элементов б, заменить ею первый эл массива б . массив на печать
Вот прога , но она почему то не создает массив б , поглядите что не так!
program bbgl;
uses crt;
var
a: array [1..5,1..10] of integer ;
b: array [1..10] of integer;
k,i,j,n,s,min :integer;
begin
write('n-?');
readln(n);
for i:=1 to n do
for j:=1 to n do

begin
write (' a [',i,',',j,']=');
readln(a[i,j]);
end;
j:=1 ; repeat
min:= a[ 1 ,j];
i:= 1; repeat
if a[i,j]<min then
min:= a[i,j];
b[i]:= min ;
i:= i+1;
Until i>n;
until j>n;
s:= 0;
for i :=1 to n do
s:= s + b[i];
b[1]:=s;
for i:=1 to n do
write ( b[i],' ' );
end.

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.