Var f: text;
a,b: array[1..100,1..100] of integer;
i,j,k,n,m,s: integer;
begin
write ('Введите количество строк (n<=100): ');
readln (n);
write ('Введите количество столбцов (m<=100): ');
readln (m);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random(19);
write (a[i,j]:5)// вывод массива на экран для проверки
end;
writeln
end;
assign(f,'array.txt');//Файл создаётся в рабочей папке или нужно указать полный путь
rewrite(f);
for i:=1 to n do
begin
for j:=1 to m do
write(f,a[i,j]:5);
writeln(f,'')
end;
close(f);
writeln;
assign(f,'array.txt');
reset(f);
i:=1;
j:=1;
while not seekeof(f) do// Пропускает пробельные символы в конце файл
begin
while not seekEoln (f) do// Пропускает пробельные символы в конце строки
begin
read(f,k);
b[i,j]:=k;
s:=j;
j:=j+1
end;
i:=i+1;
j:=1
end;
close(f);
for n:=1 to i-1 do
begin
for m:=1 to s do
write(b[n,m]:5);
writeln
end
end.