Задача на матрицу Опции

[Depression period]

Пожалуйста помогите!!!!!!

Задача1: найти наименьший элемент матрицы X(n*m)
и записать нули в ту строку и столбец, где он находится.


Внимание!!!: Исходные данные вводятся с клавиатуры или получаются внутри программы с использованием генератора случайных чисел. !!!Выбор способа получения исходных данных осуществляется с использованием меню после запуска программы на выполнение.!!!!


Я с небольшой помощью сделала задачу, но у меня исходные данные всегда вводятся с использованием генератора случ. чисел, а надо, чтобы при нажатии 1-ввод с клавы
2-генератор случ. чисел
3-выход


ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!

[volvo]

А что ты хотела, чтобы он выдавал? Ты ж ничего не вводишь... Хотя бы так вводи Z:

var
   m : TMatrix;
   z : byte;

begin

   repeat

      writeln('1 - Input ');
      writeln('2 - Input RND');
      writeln('3 - Print');
      writeln('4 - Reform');
      writeln('5 - Quit');

      readln(z); { <--- }

      case z of
       1 : InputHuman(m);
       2 : InputRnd(m);
       3 : Print(m);
       4 : Reform(m);
     end;
   until z=5;

end.