Помоготи решить задачу на паскале!

[Dudar]

В матрице В(8,8) найти минимальный и максимальный элементы в каждой строке и их порядковые номера, заданную матрицу и найденные параметры распечатать.

[Stilet]

Дудар, давай договоримся: Не нужно влезать со своими вопросами в чужую тему.
Вот тебе пример:

var mx,mn:integer;b:array[1..8,1..8] of integer;x,y:byte;
begin
//********* FOR ******************
for x :=1  to 8  do
begin
 //********* FOR ******************
 for y :=1  to 8 do
 begin
   b[x,y]:=random(100);write(b[x,y]:5);
 end;writeln;
 //******* END FOR ****************{}
end;
//******* END FOR ****************{}

//********* FOR ******************
for x :=1  to 8  do
begin     mx:=b[x,1];mn:=b[x,1];
 //********* FOR ******************
 for y :=2  to 8 do
 begin
   if (b[x,y]<mn) then mn:=b[x,y];
   if (b[x,y]>mx) then mx:=b[x,y];
 end;writeln('max ',mx,'  min ',mn);
 //******* END FOR ****************{}
end;
//******* END FOR ****************{}

readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.