Записать в другой файл все строки, длина которых больше 5 символов - Pascal

var
s:string;
f,f1:text;
begin
assign(f,'input.txt'); reset(f);
assign(f1,'otput.txt');rewrite(f1);
while not Eof(f) do
    begin
    readln(f,s);
    if length(s) > 5 then
        writeln(f1,s);
    end;
close(f);close(f1);
end.