Делфи.Матрица.Консоль.Нажатие Ctrl+Z во время заполения матрицы.

[Jane_Air]

С клавиатуры пользователь сначала вводит размеры матрицы,а потом соответствующее количество чисел.Если ввести меньше чисел и нажать клавиши Ctrl+Z вместо следующего числа,то остаток матрицы заполнится нолями. Как это сделать?

const Nmax=10;
type Matrix=array[1..Nmax,1..Nmax] of integer;

procedure gMatr2( var m:matrix;             
                  var st,rd:integer);
                  var i,j:integer;
begin
      writeln('vvedite koli4estvo stolbcov i ryadov');
      readln(st,rd);
      for i:=1 to rd do
          for j:=1 to st do  begin
                              writeln('vvedite element s indexom',i,', ',j,' ' );
                              readln(m[i,j]);
                             end;
end;

[Stilet]

Просто перед этими циклами поставь еще функу

FillChar(m,sizeof(m),0);

И массив заранее проинициализируется нулями.

[Jane_Air]

Просто перед этими циклами поставь еще функу
Код:

FillChar(m,sizeof(m),0);

И массив заранее проинициализируется нулями.

Спасибо огромное!Только теперь программка сразу закрывается после вывода матрицы на экран,а readln стоит..
Что не так?..

[Stilet]

Кто ж знает... Подружишь с отладчиком и пройди пошаговку по программе.

[Serge_Bliznykov]

Сообщение от Jane_Air

Только теперь программка сразу закрывается после вывода матрицы на экран,а readln стоит..Что не так?..

ищите, не поставили ли Вы где-то ранее для ввода данных (случайно) команду Read (вместо ReadLn).
не найдёте, тогда воспользуйтесь советом Виталия - пройдитесь пошагово в отладчике.