Удалить из файла повторяющиеся пробелы— Pascal(Паскаль)

uses crt;
 var
q:text;
s:string;
fname:string;
procedure del;
var
  n:integer;
begin
  repeat
    n:=pos('  ',s);
    if n>1 then
      delete(s,n,1);
  until n=0;
end;
 
begin
readln(s);
fname:='finish.txt';
assign(q,fname);
rewrite(q);
del;
write(q,s);
close(q);
 
end.