Дан двумерный массив размерностью 4х4. Заменить все элементы массива = С нулями. В случае если таких элементов нет, вывести соответствующее сообще - Turbo Pascal

Формулировка задачи:

Дан двумерный массив размерностью 4х4. Заменить все элементы массива = С нулями. В случае если таких элементов нет, вывести соответствующее сообщение.

Решение задачи: «Дан двумерный массив размерностью 4х4. Заменить все элементы массива = С нулями. В случае если таких элементов нет, вывести соответствующее сообще»

Листинг программы

uses crt;
var
a:array[1..4,1..4]of integer;
i,k,j,c:integer;
begin clrscr;
randomize;
for i:=1 to 4 do
for j:=1 to 4 do
a[i,j]:=random(30);
for i:=1 to 4 do
 begin
    for j:=1 to 4 do
    write(a[i,j],'  ');
    writeln;
 end;
writeln;
write('c=');
read(c);
k:=0;
for i:=1 to 4 do
for j:=1 to 4 do
if a[i,j]=c then
 begin
   a[i,j]:=0;
   inc(k);
 end;
if k=0 then writeln('Takih chisel net!')
else
 begin
    for i:=1 to 4 do
     begin
        for j:=1 to 4 do
        write(a[i,j],'  ');
        writeln;
     end;
 end;
readkey;
end.

Объяснение кода листинга программы

В этом коде создается двумерный массив размером 4х4 и заполняется случайными числами от 0 до 30. Затем массив выводится на экран. После этого пользователю предлагается ввести число, которое будет заменять все найденные в массиве элементы. Если после прохода по всем элементам массива количество найденных элементов равно нулю, выводится сообщение Takih chisel net!. Если же такие элементы были найдены, то массив выводится на экран снова.