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

var f:text;
    a:array[1..20,1..20] of integer;
    m,n,v,v_min,v_max,i,j,imx1,jmx1,imn1,jmn1,imn2,jmn2,imx2,jmx2:integer;
begin
assign(f,'matrix.txt');
rewrite(f);
randomize;
//зададим случайные размеры матрицы от 2 до 20, чтобы не знать ее рaзмер при чтении из файла
m:=2+random(19);
n:=2+random(19);
repeat
write('Введите минимальное значение элементов массива от 0 до 10 v_min=');
readln(v_min);
until v_min in [0..10];
repeat
write('Введите максимальное значение элементов массива от 50 до 100 v_max=');
readln(v_max);
until v_max in [50..100];
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    v:=v_min+random(v_max-v_min+1);
    write(f,v:4);
   end;
  writeln(f);
 end;
close(f);
//определим количество столбцов в матрицe
reset(f);
n:=0;
while not seekeoln(f) do
 begin
  read(f,v);
  inc(n);
 end;
//прочитаем и выведем матрицу
reset(f);
i:=1;
j:=0;
while not seekeof(f) do
 begin
  inc(j);
  read(f,a[i,j]);
  write(a[i,j]:3);
  if j=n then
   begin
    j:=0;
    inc(i);
    writeln;
   end;
 end;
close(f);
m:=i-1;//количество строк
//найдем минимальный и максиалный и их индексыъ
imn1:=1;
imx1:=1;
imn2:=1;
imx2:=1;
if a[1,1]<a[1,2] then
 begin
  jmn1:=1;
  jmn2:=2;
  jmx1:=2;
  jmx2:=1;
 end
else
 begin
  jmn1:=2;
  jmn2:=1;
  jmx1:=1;
  jmx2:=2;
 end;
for i:=1 to m do
for j:=1 to n do
begin
if a[i,j]<a[imn1,jmn1] then
 begin
  imn2:=imn1;
  jmn2:=jmn1;
  imn1:=i;
  jmn1:=j;
 end
else if a[i,j]<a[imn2,jmn2]then
 begin
  imn2:=i;
  jmn2:=j;
 end
else  if a[i,j]>a[imx1,jmx1] then
 begin
  imx2:=imx1;
  jmx2:=jmx1;
  imx1:=i;
  jmx1:=j;
 end
else if a[i,j]>a[imx2,jmx2]then
 begin
  imx2:=i;
  jmx2:=j;
 end;
end;
writeln('Второй максимальный элемент a[',imx2,',',jmx2,']=',a[imx2,jmx2]);
writeln('Второй минимальный  элемент a[',imn2,',',jmn2,']=',a[imn2,jmn2]);
end.