Дана строка S и текстовый файл. Добавить строку S в начало и конец файла

Var
  s,s1,name: String;
  f,buf: Text;
BEGIN
Write('Введите полное имя файла: ');
Readln(name);
If FileExists(name) Then
begin
  Assign(f,name);
  Reset(f);
  Assign(buf,'buf.txt');
  Rewrite(buf);
  Write('Введите строку S: ');
  Readln(s);
  Writeln(buf,s);
  While not Eof(f) do
  begin
    Readln(f,s1);
    Writeln(buf,s1);
  end;
  Writeln(buf,s);
  Close(f);
  Close(buf);
  Erase(f);
  Rename(buf,name);
end
Else
Writeln('Файл не найден');
END.

Var
  s,s1: String;
  f,buf: Text;
  n,i: Byte;
BEGIN
Assign(f,'1.txt');
Rewrite(f);
Write('Сколько строк записать в файл? ');
Readln(n);
Writeln('Введите строки в файл:');
For i:=1 to n do
begin
  Readln(s);
  Writeln(f,s);
end;
Assign(buf,'buf.txt');
Rewrite(buf);
Write('Введите строку S: ');
Readln(s);
Writeln(buf,s);
Reset(f);
While not Eof(f) do
begin
  Readln(f,s1);
  Writeln(buf,s1);
end;
Writeln(buf,s);
Close(f);
Close(buf);
Erase(f);
Rename(buf,'1.txt');
END.