В заданном тексте удалить из текста пробелы и подсчитать длину сформированного текста — Pascal(Паскаль)

var
s:string;

begin
writeln('Введите текст');
readln(s);
while pos(' ',s)>0 do 
    delete(s,pos(' ',s),1);{удаляем пробелы}
writeln('Итоговый текст= ',s);
writeln('Длина сформированного текста= ',length(s));
end.

uses crt;
var
f,g:text;
s:string;
len:integer;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
assign(g,'file2.txt');
rewrite(g);
len:=0;
while not eof(f) do
 begin
  readln(f,s);{читаем строки}
  while pos(' ',s)>0 do delete(s,pos(' ',s),1);{удаляем пробелы}
  len:=len+length(s);{считаем общую длину}
  writeln(g,s);{переписываем в новый файл без пробелов}
 end;
close(f);
close(g);
writeln('Длина сформированного текста=',len);
readln