Определить количество и адреса нулевых элементов массива

Const nmax=90;
Var K:array[1..nmax] of real;
    j,m,kol:integer;
Begin
    write('Введите кол-во элементов m<=',nmax,': ');
    readln(m);
    For j:=1 to m do
    Begin
      K[j]:=random(10);
      write(K[j]:2);
      if K[j]=0 then inc(kol);
    End;
    writeln;
    writeln('Нулевых = ',kol);
    writeln('Индексы нулевых: ');
    For j:=1 to m do
     if K[j]=0 then write(j,' ');
    readln;
End.

var
 s:string;
 x:real;
...
readln(s); {вводим "число" как строку}
val(s,x,code); {конвертируем строку в число}
if code <> 0 then { правильная запись числа}
 if (x>a) and (x<b) then
  { нужный диапазон}
 else
  {вне диапазона}
else
 {ошибка в записи числа};

    
Const nmax=90; {задаем константу (неизменную величину)}
Var K:array[1..nmax] of integer; {задаем массив}
j,m,code,kol:integer; {задаем переменные для работы с массивом}
s: string; {задаем переменные (для конвертирования строки в число)}
successRead:boolean; {задаем переменные}
Begin
successRead:=false; {Присваеваем переменной значение false}
while successRead=false do {Запускаем цикл пока successRead=false }
begin {Начало цикла}
writeln('Введите количество элементов от 1 до 90 в массиве m<=',nmax,': ');{вывод сообщения на экран}
writeln(' ');
readln(s); {Читаем вводимое значение с клавиатуры}
val(s,m,code); {конвертируем строку в число}
if (m>0) and (m<=90) and (code=0) then {проверяем корректность вводимого параметра}
successRead:=true {если все правильно присваеваем значение True}
else {в противном случе}
begin
writeln(' ');
writeln('ОШИБКА ВВОДА ЗНАЧЕНИЯ. ЗНАЧЕНИЕ ДОЛЖНО БЫТЬ В ПРЕДЕЛАХ ОТ 1 ДО 90'); {выдаем ошибку на экране и возвращаем пользователя обратно к вводу значения}
writeln(' ');
end;
end;
writeln(' ');
writeln('Элементы массива');{выдаем результаты на экран}
writeln(' ');
For j:=1 to m do {продолжаем цикл до значения m, которое было введено изначально}
Begin
K[j]:=random(10);{j-му элементу массива присваивается «случайное» целое число в диапазоне от 0 до 10}
write(K[j]:2); {Вывод элементов массива на экран}
if K[j]=0 then inc(kol); {если в массиве найден нулевой элемент увеличиваем значение переменной kol на единицу}
End;
writeln;
writeln(' ');
writeln('Количество нулевых элементов = ',kol);{выдаем результаты на экран}
writeln(' ');
writeln('Адрес(а) нулевых элементов: ');{выдаем результаты на экран}
writeln(' ');
For j:=1 to m do {продолжаем цикл до значения m, которое было введено изначально}
if K[j]=0 then write(j,' ');{запись нулевых элементов}
readln;
End.

  {$I-}
  repeat
    Write('Введите m: '); ReadLn(m);
  until (IOResult=0) and (m in [1..90]);