2х мерный массив delphi

[sofiya]

Найти в каждой строке массива максимальный и минимальный элементы и поменять их с первым и последним элементом соответственно.
помогите!!!

[New man]

program Matrix;
const D= 6;//колво строк
         Z=10;// Колвостолбцов
var mas: array [1..D, 1..Z]of real;
     i,j :integer;
     min,max:integer;
procedure change(var a,b:real);
var m:real;
begin
   m:=a;
   a:=b;
   b:=m;
end;
begin
    for i:=1 to D do
     for j:=1 to Z do
       mas[i,j]:=random(100);
    for i:=1 to D do
    begin
      Min:=1;Max:=1;
     for j:=1 to Z do
       begin
          if Mas[i,j]<mas[i,min] then min:=j;
          if mas[i,j]>mas[i,max] then max:=j;
       end;
     change(mas[i,1],mas[i,max]);
     change(mas[i,z],mas[i,min]);
   end;
end.