Заменить значение каждого элемента Ci значением минимального элемента i-ой строки матрицы A

var i, j: integer;
    a: array [1..5, 1..5] of integer;
    c: array [1..5] of integer;
    b: boolean;
 
procedure out_a;
var i, j: integer;
begin
  writeln('Матрица A');
  for j := 1 to 5 do
    begin
      for i := 1 to 5 do write(a[i, j], ' ');
      writeln
    end
end;
 
procedure out_c;
var i: integer;
begin
  writeln('Вектор C');
  for i := 1 to 5 do write(c[i], ' ');
  writeln
end;
 
begin
 
  writeln('Введите элементы матрицы A');
  for j := 1 to 5 do
    for i := i to 5 do
      begin
        write('A[', i, ', ', j, '] = ');
        readln(a[i, j])
      end;
  writeln('Введите элементы вектора C');
  for i := 1 to 5 do
    begin
      write('C[', i, '] = ');
      readln(c[i])
    end;
  out_a;
  out_c;
 
  b := true;
  for i := 1 to 5 do
    if c[i] > a[i, i]
      then continue
      else begin
        b := false;
        break
      end;
 
  if b
    then begin
      for j := 1 to 5 do
        begin
          c[j] := a[1, j];
          for i := 2 to 5 do if c[j] > a[i, j] then c[j] := a[i, j]
        end;
    end;
 
  if b
    then begin
      writeln('Все C[j] > A[i, j]');
      out_c
    end
    else writeln('Не все C[j] > A[i, j]');
 
  readln
end.