Файлы

[Veronika#]

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

[Stilet]

Вот Посмотри пример
http://www.programmersforum.ru/showthread.php?t=32543
Может навеются мысли.

[Hacker19_90]

program for_you_veronika;
uses crt;
var
    F: Text;
    fname: string;
    s: string;
    SaveFile: array[1..100] of string;
    Temp: string;
     K, kol_strok, j: integer;
begin
    clrscr;
    Writeln('Введите имя файла:');
    Readln(fname);
    Writeln('Введите вашу строку:');
    Readln(s);
    Writeln('Введите номер строки:');
    Readln(K);
    Assign(F, fname);
    {$I-}
     Reset(F);
     if IOResult <> 0 then
     begin
         Writeln('Ошибка чтения!!!!');
         ReadKey;
         Halt;
     end;
     kol_strok := 0;
     while not(Eof(F)) do
     begin
         Inc(kol_strok);
         Readln(F, SaveFile[kol_strok]);
     end;
     close(F);
     {$I+}
     Assign(F, fname);
     Rewrite (F);
     if ((K > kol_strok) or (K < 0)) then
     begin
          Writeln('Неверный номер строки');
         ReadKey;
         Halt;
     end 
     else if (K = 0) then
           begin
               Writeln(F, s);
               Writeln(F, SaveFile[1]);
               Writeln(F, s);
               for j := 2 to kol_strok do
                   Writeln(F, SaveFile[j]);
           end
           else
               for j := 0 to (kol_strok-1) do
               begin
                    if (j > (kol_Strok - 1)) then break;
                    Writeln(F, SaveFile[j+1]);
                    if (j + 1)= K then
                    begin
                         Writeln(F, s);
                         Writeln(F, SaveFile[j + 2]);
                         Writeln(F, s);
                         Inc(j, 2)                   
                    end;             
               end; 
    Close(F);
end.

Пашет ток при условии что файл текстовой уже создан!!!