Определить номер последней строки, содержащей наименьшее число знаков «+» и «-»

program testprg;
 
var i, j, n, iMaxVal, iMaxTmp, iMaxStrNum: integer;
var a: array[0..99, 0..99] of char;
 
begin
// Инициализация массива
   Writeln('Введите размерность массива:');
   Read(n);
   Randomize;
   Writeln('Сформированный массив:');
   for i:=1 to n do
   begin
        for j:=1 to n do
        begin
             if Random(10) < 2 then a[i,j] := '-'
             else if Random(10) < 4 then a[i,j] := '+'
             else a[i,j] := 'q';
             Write(a[i,j]:5);
        end;
        Writeln('');
   end;
 
   // Анализ массива
   for i:=1 to n do
   begin
        iMaxTmp := 0;
        for j:=1 to n do
        begin
             if (a[i,j] = '-') or (a[i,j] = '+') then iMaxTmp := iMaxTmp + 1;
        end;
        if iMaxTmp >= iMaxVal then
        begin
             iMaxVal := iMaxTmp;
             iMaxStrNum := i
        end
   end;
 
   // Вывод результата
   Writeln('Максимальное количество символов "+" и "-" (', iMaxVal , 'содержится в строке №', iMaxStrNum, ')');
   
end.

program testprg;
 
var i, j, n, iMinVal, iMinTmp, iMinStrNum: integer;
var a: array[0..99, 0..99] of char;
 
begin
// Инициализация массива
   Writeln('Введите размерность массива:');
   Read(n);
   Randomize;
   Writeln('Сформированный массив:');
   for i:=1 to n do
   begin
        for j:=1 to n do
        begin
             if Random(10) < 2 then a[i,j] := '-'
             else if Random(10) < 4 then a[i,j] := '+'
             else a[i,j] := 'q';
             Write(a[i,j]:5);
        end;
        Writeln('');
   end;
 
   // Анализ массива
   iMinVal := n;
   for i:=1 to n do
   begin
        iMinTmp := n;
        for j:=1 to n do
        begin
             if (a[i,j] = '-') or (a[i,j] = '+') then iMinTmp := iMinTmp - 1;
        end;
        if iMinTmp = (n+1) then iMinVal := 0;
        if iMinTmp <= iMinVal then
        begin
             iMinVal := iMinTmp;
             iMinStrNum := i
        end
   end;
 
   // Вывод результата
   Writeln('Минимальное количество символов "+" и "-" (', iMinVal , ') содержится в строке №', iMinStrNum, ')');
 
end.