Дан двумерный массив А(5,5) в виде квадратной матрицы. Составьте программу, обнуляющую главную диагональ матрицы, если в ней найдется хоть один отрицательный элемент. Значения элементов массива задайте самостоятельно, используя процедуру ввода данных с клавиатуры. Для ввода данных и обработки массива используйте оператор цикла FOR. Выведите на экран исходную и преобразованную матрицу — Pascal(Паскаль)

const 
n=5;
var
a:array[1..n,1..n] of integer;
l:boolean;
i,j:integer;
begin
for i:=1 to n do
    begin 
        for j:=1 to n do
          begin
            a[i,j]:=10-random(20);
            write('  ',a[i,j]:3);
          end;
        writeln();
    end;
writeln('--------') ; 

l:=false;
i:=1;
while (i<=n)and(l=false) do
 begin
  if a[i,i]<0 then l:=true
   else inc(i);
 end;
 
if l then
 for i:=1 to n do
   a[i,i]:=0;

writeln('--------') ; 

for i:=1 to n do
    begin 
        for j:=1 to n do
          begin
             write('  ',a[i,j]:3);
          end;
        writeln();
    end;
    
end.