Паскаль. Обработка массивов.

[Stilet]

тут не max находит по моему а min.

Странно... А у меня как раз максимум находит...
И действительно зачем кросспостишь?

[Pascaler]

как минимум найти?

[Pascaler]

Stilet напиши плз нахождение минимума

[Pascaler]

var
a:array[1..3,1..3]of integer;
i,j,max,min,smax,smin:integer;
begin
randomize;
writeln('massiv');
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
max:=-maxint;
min:=maxint;
for i:=1 to 3 do
for j:=2 to 3 do
begin
if a[i,j]-a[i,j-1]<min then
begin
min:=a[i,j]-a[i,j-1];
smin:=i;
end;
if a[i,j]-a[i,j-1]>max then
begin
max:=a[i,j]-a[i,j-1];
smax:=i;
end;
end;
writeln('stroka s max prirasheniem=',smax,' prirashenie=',max);
writeln('stroka s min prirasheniem=',smin,' prirashenie=',min);
readln;
end.

Надо найти строку а не элемент. Вот в этой программе строку находит, но не совсем правильно. В чем ошибка у меня?