Дано число k и матрица. Вставить строку перед и после строки с номером k

[dimka123]

задание такое-Дано число k Вставить строку перед и после строки с номером k (строки нумеруются от 0). Если строки с таким номером нет, то оставить файл без изменений.
но пока ,что делаю без файла.. застрял в добавлении условия,чтобы та же строка вставлялась и перед заданной строкой.(

uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,s:byte;
begin
randomize;
repeat
write('Количество строк до ',nmax,' m=');
read(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
repeat
write('После какой строки вставить от 1 до ',m,' s=');
read(s);
until s in [1..m];
m:=m+1;
if s=m-1 then
 begin
  for j:=1 to n do
  a[m,j]:=100
 end
else
 begin
  for i:=m downto s+2 do
  for j:=1 to n do
  a[i,j]:=a[i-1,j];
  for j:=1 to n do
  a[s+1,j]:=100;
 end;
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
end.

[Serge_Bliznykov]

оставить файл без изменений.

А задание полностью привести не судьба?
Где в задании сказано про файл?
Куда надо вставить строку, о каком файле идёт речь?

[Stilet]

Что-то типа:

var q:text; s,s2:string; i,k:integer;
begin
 readln(s2); readln(k);
 assign(q,'file.txt'); reset(q);
 assign(output,'file2.txt');
 i:=1;
 while not eof(q) do begin
  readln(q,s);
  if i=k then begin writeln(s2); writeln(s); writeln(s2); end
  else writeln(s);
  inc(k);
 end;
 close(q);
 // Тут какой-то функцией не помню точно какой переименовать file2.txt в file.txt
end.

[dimka123]

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

А задание полностью привести не судьба?
Где в задании сказано про файл?
Куда надо вставить строку, о каком файле идёт речь?

дан файл и число К.где К это номер строки после и перед которой нужно вставить пустую строку.
в файле как я понял записан двумерный массив

[Serge_Bliznykov]

в файле как я понял записан двумерный массив

дьявол, как известно, в деталях!!
Что за тип файла и каким образом записан массив в файле?!

если речь идёт о текстовых файлах, то рекомендую ознакомиться с решением (c) Stilet из пост #3

[min@y™]

в файле как я понял записан двумерный массив

Покажь сам файл, а то какое-то "чтогдекогда" получается.

[dimka123]

Сообщение от min@y™

Покажь сам файл, а то какое-то "чтогдекогда" получается.

в файле должен быть двумерный массив.(как я понял)
и думаю такой будет файлик name.txt

[min@y™]

Классами delphi пользоваться низзя? Только процедурный паскаль, только хардкор? Зачем в файле массив чисел? Содержимое массива не анализируется жэж!

[Serge_Bliznykov]

и думаю такой будет файлик name.txt

ещё раз повторяю вопрос - как полностью звучит задание?!
если вставить строку до и после, то чем не устраивает код, выложенный Stilet ?

и с этим

в файле массив чисел? Содержимое массива не анализируется жэж!

я полностью согласен.
если в файле будет

tra ta  ta bu ga ga
1 b  cc dd e ffd
2 3 1 
   2 3 4 5 6 7
ra ra ra ra ra

программа должна сработать? Если нет - то почему?