Текстовые файлы. Pascal

[Alex Joy]

Дано целое число K и текстовый файл. Вставить пустую строку перед строкой файла
с номером K. Если строки с таким номером нет, то оставить файл без изменений.

[NewLamer&Programer]

Const k = 10;
Var SL: TStringList;
begin
SL:= TStringList.Create;
SL.LoadFromFile(ExtractFilePath(paramstr(0))+'test.txt');
if SL.Count < K 
then SL.Insert('',K-1);
SL.Free;
end;