Матрица b, в каждой строке максимальный и минимальный элементы заменить 0 — Pascal(Паскаль)

uses crt;
var a:array[1..100,1..100]of integer;
strok,stolbcov,jmax,jmin,min,max,i,j,k:integer;
begin
writeln('strok=');
readln(strok);
writeln('stolbcov=');
readln(stolbcov);
writeln('Matrix=');
for i:=1 to strok do
begin
for j:=1 to stolbcov do
begin
read(a[i,j]);
end;
end;
max:=a[1,1];
 min:=a[1,1];
   jmin:=1;
   jmax:=1;
for i:=1 to strok do begin
for j:=1 to stolbcov do begin
if a[i,j]>max then begin  max:=a[i,j]; jmax:=j; end;
 if a[i,j]<min then begin min:=a[i,j]; jmin:=j; end;
 end;
  a[i,jmin]:=0;
 a[i,jmax]:=0;
   end;
  for i:=1 to strok do
begin
  for j:=1 to stolbcov do
begin
   writeln(a[i,j]);
end;
end;
     end.