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

var str: string;
    i: integer;
 
begin
 writeln('Введите текст: ');
 readln(str);
 for i := 1 to length(str) do
  if str[i] = ' ' then Delete(str, i, 1);
 writeln('Длина текста - ', length(str));
 readln
 end.