Преобразовать исходную матрицу и вывести на дисплей

uses crt;
const n=8;
var i,j,jmin,jmax: byte;
    d: array [1..n,1..n] of integer;
    buf: integer;
    
begin
{//ввод матрицы вручную
for i:=1 to n do
    for j:=1 to n do
        begin
        write('D[',i,',',j,']='); readln(d[i,j]);
        end;
//вывод матрицы при вводе вручную
for i:=1 to n do
    begin
    for j:=1 to n do
        write(d[i,j]:4);
    writeln;
    end;}
writeln('Исходная матрица');
for i:=1 to n do
    begin
    jmin:=1;
    jmax:=1;
    for j:=1 to n do
        begin
        d[i,j]:=random(199)-99;
        write(d[i,j]:4);
        if d[i,j]>d[i,jmax] then jmax:=j;
        if d[i,j]<d[i,jmin] then jmin:=j;
        end;
    writeln;
    buf:=d[i,jmin];
    d[i,jmin]:=d[i,jmax];
    d[i,jmax]:=buf;
    end;
writeln('Преобразованная матрица');
for i:=1 to n do
    begin
    for j:=1 to n do
        write(d[i,j]:4);
    writeln;
    end;
readln;
end.