К готовой проге добавить запись в файл. Найдите ошибку

uses crt;
var s, sl,ss,sg: string;
    i,j,k: integer;
begin
writeln('Ââåäèòå ñëîâà:');
readln(s);
ss:='qwrtpsdfghjklzxcvbnmQWRTPSDFGHJKLZXCVBNM1234567890';
sg:='eyuioaEYUIOA';
s:=s+' ';
sl:='';
writeln('Ñëîâà ñ ÷åòíûì êîëè÷åñòâîì ãëàñíûõ:');
for i:=1 to length(s) do
    if (pos(s[i],ss)<>0) or (pos(s[i],sg)<>0)
       then sl:=sl+s[i] else
            begin
            for j:=1 to length(sl) do
                if pos(sl[j],sg)<>0 then inc(k);
            if (k<>0) and (k mod 2=0) then write(sl,' ');
            k:=0;
            sl:='';
            end;
end.

uses crt;
var
s, sl,ss,sg: string;
i,j,k: integer;
input:text;
output:text;
begin
//----------------------------------------------------------------
{Çàïèñûâàåì ïåðâûé ôàéë}
Assign(input, 'input.txt'); //ñâÿçûâàåì ïåðåìåííóþ ñ ôàéëîì
Rewrite(input);             //ñîçäàåì è îòêðûâàåì ôàéë íà çàïèñü
writeln('Ââåäèòå òåêñò äëÿ çàïèñè â ôàéë input.txt:');
readln(s);                  //ââîäèì ñ êëàâèàòóðû ñëîâà
writeln(input,s);           //çàïèñûâàåì ñëîâà â ôàéë
close(input);               //çàêðûâàåì
//----------------------------------------------------------------
ss:='qwrtpsdfghjklzxcvbnmQWRTPSDFGHJKLZXCVBNM1234567890';
sg:='eyuioaEYUIOA';
s:=s+' ';
sl:='';
//----------------------------------------------------------------
{×èòàåì ïåðâûé ôàéë è, ïî çàäàííîìó óñëîâèþ, ôîðìèðóåì âòîðîé ôàéë}
Assign(input,'input.txt');
Assign(output,'output.txt');
Reset(input);  //îòêðûâàåì ôàéë íà ÷òåíèå
Rewrite(output); //ñîçäàåì è îòêðûâàåì íà çàïèñü
while not eof(input) do  //ïîêà íå äîñòèãíóò êîíåö ôàéëà
   begin
   Readln(input,s);   //ñ÷èòûâàåì â ïåðåìåííóþ s òåêñò èç ôàéëà
writeln('Ñëîâà ñ ÷åòíûì êîëè÷åñòâîì ãëàñíûõ (çàïèñàíû â ôàéë output.txt):');
for i:=1 to length(s) do
    if (pos(s[i],ss)<>0) or (pos(s[i],sg)<>0)
       then sl:=sl+s[i] else
            begin
            for j:=1 to length(sl) do
                if pos(sl[j],sg)<>0 then inc(k);
            if (k<>0) and (k mod 2=0) then
               begin
                  write(sl,' ');
                  write(output,sl);
               end;
            k:=0;
            sl:='';
            end;
   end;
close(input);
close(output);
end.

            if (k<>0) and (k mod 2=0) then
               begin
                  write(sl,' ');
                  write(output,sl, ' '); // <---
               end;

writeln('Введите текст для записи в файл input.txt:');
readln(s);   // вводим с клавиатуры слова
s := s + ' ';   // <--- До записи в файл, а не после !!!
writeln(input,s);   // записываем слова в файл