Delphi: задача на массивы. помогите плиз!))

[Pavel!!]

Найти разность R между максимальным и минимальным элементами массива W. Отсортировать по возрастанию элементы первой строки.
массив - матрица 3 на 3

застрял на задаче, помогите плиз.. попытался сделать сортировку 1й строки:

for i:=1 to 2 do
for j:=i to 3 do begin
if a[1,i]>a[1,j] then begin
x:= a[1,i];
a[1,i]:=a[1,j];
a[1,j]:=x;
end;
end;

заранее спасибо=))

[Sazary]

	
	
for i:=1 to 2 do
begin 
k:=i;
for j:=i+1 to 3 do
 if a[1,j]>a[1,k] then k:=j;
x := a[1,k];
a[1,i] := x;
a[1,k] := x;
end;

[Pavel!!]

cпc) я просто начинающий в делфи.. у меня фигня со счетом разности макс и мин элементов.....(

[Sazary]

я просто начинающий в делфи.. у меня фигня со счетом разности макс и мин элементов.....(

Покажите свои наработки. Исправим.

[Pavel!!]

Min:= a[1];
	For i:=1 to 3 do
	If a[i]<min then min:=a[i];
Begin
Min:= a[i];
K:= I;
End;
Max:=a[1];
	For i:=1 to 3 do
	If a[i]>max then min:=a[i]:

[Sazary]

min := 1;
max := 1;
for i:=2 to 3 do
 begin
 if a[i]<a[min] then min :=i;
 if a[i]>a[max] then max := i;
 end;
R := a[max]-a[min];

[Pavel!!]

спасибо))))