Дан файл F. Переписать его в новый файл, вставляя на последнее место в строке заданное слово — Pascal(Паскаль)

var f,f1:text;
    s,m:string;
begin
assign(f,'..\data\data.txt');
assign(f1,'..\data\result.txt');
reset(f);
rewrite(f1);
writeln('Введите строку');
readln(s);
while not eof(f) do
begin
     readln(f,m);
     writeln(f1,m,' ',s);
end;
close(f);
close(f1);
end.