ввести квадратную матрицу 10*10, в процедуре на место отрицательных элементов записать нули

uses crt;
type mas=array [1..10,1..10] of integer;
var i,j,r: integer;
    a: mas;
 
procedure Zamena(var a:mas);
begin
for i:=1 to 10 do
    for j:=1 to 10 do
        begin
        if a[i,j]<=0 then a[i,j]:=0 else a[i,j]:=1;
        end;
end;
 
begin
for i:=1 to 10 do
    for j:=1 to 10 do
        begin
        write('a[',i,',',j,']=');
        readln(a[i,j]);
        end;
writeln('Исходная матрица');
for i:=1 to 10 do
    begin
    for j:=1 to 10 do
        write(a[i,j]:4);
    writeln;
    end;
Zamena(a);
writeln('Итоговая матрица');
for i:=1 to 10 do
    begin
    for j:=1 to 10 do
        write(a[i,j]:4);
    writeln;
    end;
writeln('Треугольная матрица');
for i:=1 to 10 do
    begin
    for j:=1 to 10 do
        if i+j>11 then write(a[i,j]:4);
    writeln;
    end;
readkey
end.

uses crt;
var r1,r2,s1,s2: real;
 
procedure Scir(r: real; var s: real);
begin
s:=pi*r*r;
end;
 
begin
write('Радиус  внешнего  круга  = ');
readln(r1);
write('Радиус внутреннего круга = ');
readln(r2);
Scir(r1,s1);
Scir(r2,s2);
writeln('Площадь кольца = ',s1-s2:7:2);
readkey
end.

uses crt;
var r1,r2,s1,s2,ss: real;
 
function Scir(r: real):real;
begin
Scir:=pi*r*r;
end;
 
begin
write('Радиус  внешнего  круга  = ');
readln(r1);
write('Радиус внутреннего круга = ');
readln(r2);
ss:=Scir(r1)-Scir(r2);
writeln('Площадь кольца = ',ss:7:2);
end.