Файлы... Опции

[Alla]

- дано имя файла и целые положительные числа N и K. Создать текстовый файл с указанным именем и записать
в него N строк, каждая из которых состоит из K символов *;
- дана строка S и текстовый файл. Добавить строку S в начало файла;
- дано целое число К и текстовый файл; сформировать новый файл, удалив из исходного файла строку с
номером К, если строки с таким номером нет, то переписать файл без изменений.

Решение первой задачи я осилила, но две последние не даются никак. Очень прошу спасите меня

Код

program test;
uses crt;
var
f : text;
k, n, i, j : integer;
s : char;
begin
clrscr;
writeln('Enter kol-vo strings: ');
readln(n);
writeln('Enter kol-vo symbools: ');
readln(k);
assign(f,'file1.txt');
rewrite(f);
for i:=1 to n do
  for j:=1 to k do
   begin
   readln(s);
   write(f,s);
   end;
  readln;
end.

[Altair]

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

i:=0;
while not eof(f) do begin {читаем пока не конец файла }
   readln(f,s); {прочли строку}
   inc(i); {увеличили i }
   if k<>i then writeln(g,s); {если не та строка что нужно пропустить то записываем}
end;

смысл понятен ?