Создать текстовый файл, в который построчно записать прямоугольный массив massivnm, заполненный целыми случайными числам

const n=8;
      m=10;
var f:text;
    v_min,v_max,i,j,x:integer;
begin
assign(f,'matrix.txt');
rewrite(f);
randomize;
repeat
writeln('Введите границы интервала целых чисел 9<v_min<v_max<90');
readln(v_min,v_max);
until (v_min>9)and(v_min<v_max)and(v_max<90);
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    x:=v_min+random(v_max-v_min+1);
    write(f,x:3);
   end;
  writeln(f);
 end;
close(f);
writeln('Файл matrix.txt записан')
end.

var f:text;
    n,m,r,p,x,i,j:integer;
    s:string;
begin
assign(f,'matrix.txt');
reset(f);
n:=0;//количество строк
m:=0;//количество столбцов
while not eoln(f) do
 begin
  read(f,x);
  inc(m);
 end;
reset(f);
while not seekeof(f) do
 begin
  readln(f,s);
  inc(n);
 end;
repeat
write('Номер строки для чтения от 1 до ',n,' r=');
readln(r);
until r in [1..n];
repeat
write('Номер столбца для чтения от 1 до ',m,' p=');
readln(p);
until p in [1..m];
writeln('Строка номер ',r);
reset(f);
for i:=1 to r do
for j:=1 to m do
 begin
  read(f,x);
  if i=r then write(x:3);
 end;
writeln;
writeln('Столбец номер ',p);
reset(f);
for i:=1 to n do
for j:=1 to m do
 begin
  read(f,x);
  if j=p then write(x:3);
 end;
 close(f)
 end.