[EvilRussian]

Используй for i:=1 to N do, Люк!
Случайник:

Код:

Randomize;
x[i,j]:=Random(99)+1;

Вот решение (можно улучшить, чтобы не расслаблялся):

Код:

Randomize;
min:=101;
sum:=0;
For i:=1 to N do
 For j:=1 to N do
 begin
  x[i,j]:=Random(99)+1;
  if x[i,j]<min then min:=x[i,j];
  if j=N then sum:=sum+x[i,j];
 end;

Все переменные - типа integer.
На выходе получаем min - минимальный элемент массива и sum - сумма всех чисел последней строки. И всё это в одном массиве.

Не забудь поставить плюс (картинка весов) - тебе не сложно, мне приятно.