Копирование к строк из одного файла в другой

[A_Orlov]

Здравствуйте! Помогите доделать программу на pascal.
Дано целое число K (0 < K < 10) и текстовый файл, содержащий более K строк. Создать новый текстовый файл, содержащий K последних строк исходного файла.
Часть задачи сделал - подсчитал общее количество строк:

program txtfile;
var
  f1,f2: text;
  s: string;
  n,k: integer;
begin
  n:= 0;
  assign(f1,'text1.txt');
  reset(f1);
  while not eof(f1) do
  begin
    readln(f1,s);
    Inc(n);
  end;
close(f1);
end;

А вот дальше не могу...(

[Z1000000]

{ Имеется текстовый файл. Создать файл из K последних строк }
program Laba5_1;
uses crt;
var
 f,g : Text;
 c : Char;
 Counter : Integer;
 FileName,FileDest : String;
 k : Integer;
 S : String;
begin
clrscr;
FileName := 'text.txt';
FileDest := 'textdest.txt';
writeln ('Введите число строк : ');
readln ( k );
Assign (f,FileName);
Assign (g,FileDest);
Reset (f);
Counter := 0;
while not eoln(f) do
 begin
 readln(f,S);
 Counter := Counter + 1;
 end;
Reset (f);
Rewrite(g);
k := Counter - k ;
Counter := 0;
while not eoln(f) do
 begin
 readln(f,S);
 Counter := Counter + 1;
 if Counter > k then writeln ( g, S );
 end;
Close(f);
Close(g);
writeln;
writeln ('Программа завершена');
end.