Найти в каждой строчке max и min элемент, и поставить их на первом и последнем месте строчки в массиве — Pascal(Паскаль)

const n=5;
     m=5;
var a:array[1..n,1..m]of integer;
    i,j,jmax,jmin:integer;
begin
randomize;
for i:=1 to n do
begin
    for j:=1 to m do
    begin
        a[i,j]:=random(21)-10;
        write(a[i,j]:4);
    end;
    writeln;
end;
for i:=1 to n do
begin
    jmax:=1; jmin:=1;
    for j:=2 to m do
    begin
        if a[i,j]>a[i,jmax] then jmax:=j;
        if a[i,j]<a[i,jmin] then jmin:=j;
    end;
    a[i,1]:=a[i,jmax];
    a[i,m]:=a[i,jmin];
end;
writeln('Результат:');
for i:=1 to n do
begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
end;
end.