Все элементы матрицы, которые отличаются от заданного y, заменить нулями — Pascal(Паскаль)

uses crt;
 
const
k = 25;
l = 30;
 
var
m, n, y, i, j, u, command: Integer;
command1: Byte;
A: Array [1.. k, 1.. l] of Integer;
 
 
 
Procedure Output_N2;
Begin
Write('  |');
For i := 1 to n - 1 do
 write(i:3,' ');
Writeln(n:3);
 
Write('--+');
For i := 1 to n - 1 do
 write('----');
Writeln('---');
 
For i := 1 to m do
 begin
 write(i:2,'|');
 for j := 1 to n - 1 do
  write(A[i,j]:3,' ');
 writeln(A[i,n]:3);
 end;
End;