Дан текстовый файл* t. В строках слова разделены пробелами. Заменить каждый пробел шестью звездочками. Результат записать в файл t1 — Pascal(Паскаль)

var t,t1:text;
    s:string;
    i:byte;
begin
clrscr;
assign(t,'file1.txt');
reset(t);
assign(t1,'file2.txt');
rewrite(t1);
while not eof(t) do
 begin
  readln(t,s);
  for i:=length(s) downto 1 do
  if s[i]=' 'then
   begin
    delete(s,i,1);
    insert('******',s,i);
   end;
  writeln(t1,s);
 end;
close(t);
close(t1);
write('Fail zapisan!');
readln
end.