end;

for i:=1 to n do

if x[i]<min then

begin

     imin:=i;

     min:=x[i];

end;

y:=max-min;

Вывод результатов

Результат выводится в цикле с параметром с помощью оператора печати write. При выводе элементов целочисленного типа используют форматированный вывод, т.е. указывается количество позиций под целую и десятичную часть соответственно.

for i:=1 to n do

begin

     for j:=1 to n do

     write(a[i,j]:7:1);

     writeln;

end;