В матрице b в каждой строке максимальный и минимальный элементы заменить нулем- Pascal(Паскаль)

uses crt;
var a:array[1..100,1..100] of integer;i,j,k,t,n:integer;
begin clrscr;writeln('vvedite n'); randomize; readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(50)-25;write(a[i,j]:5);end;
writeln;end;
for i:=1 to n do begin k:=1;t:=1;
    for j:=2 to n do
    if a[i,k]<a[i,j] then k:=j;
    a[i,k]:=0;
    for j:=2 to n do
    if a[i,t]>a[i,j] then t:=j;
    a[i,t]:=0;
    end;
for i:=1 to n do begin
for j:=1 to n do begin
write(a[i,j]:4);end;writeln;end;
end.