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

Uses
 CRT;
var
a:array[1..20,1..20] of integer;
i,j,n,m,c:integer;
t:boolean;
begin
clrscr;
write('-: ');
readln(n);
write('-: ');
readln(m);
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10)-5;
write(a[i,j]:5);
end;
writeln;
end;
writeln;
write('- C: ');
readln(c);
t:=false;
for i:=1 to n do
for j:=1 to m do
if a[i,j]=c then
begin
t:=true;
a[i,j]:=0;
end;
writeln;
if t then
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:5);
end;
writeln;
end;
end
else
writeln('-');
readkey
end.