procedure CreateMatr;
var
  F : text;
begin
  write ('razmernost matricy: ');
  readln(razmer);

 assign(F,'README');
 reset(F);
 читаешь пока не eof(F) и записываешь в элемент матрицы
end;