Обработать файл,вывести значение в другой

var
a,w:text;
y,s,r,tel,adres,q:string;
c,k:char;
begin
assign(w,'C:\ABC\ABC3.txt');
rewrite(w);
k:=' ';
assign(a,'C:\ABC\ABC.txt');
rewrite(a);
writeln('Создать запись в файле?Ответьте: "Да" или "Нет"');
readln(r);
if ((r<>'Да') and (r<>'Нет')) then
begin
writeln('Некорректный ввод.Пожалуйста,ответьте "Да" или "Нет"');
readln(r);
end;
if r='Да' then
 begin
 repeat
 writeln('Введите ФИО');
 readln(s);
 write(a,s);
 write(a,k);
 writeln('Введите телефон');
 readln(tel);
 write(a,tel);
 write(a,k);
 writeln('Введите адрес');
 readln(adres);
 write(a,adres);
 write(a,k);
 writeln(a);
 writeln('Еще?');
 readln(q);
until q='Нет';
end
else if r='Нет' then
writeln('Создание БД отменено');
reset(a);
while not eof(a) do
 begin
  while not eoln(a) do
  begin
  readln(a,y);
  s:=s+y;
  write(y);
  writeln;
  end;
 end;
 
close(w);
close(a);
end.