Дана строка. Удалить все пробелы, подсчитать кол-во удалений

Var
  s: String;
  i,k: Byte;
BEGIN
Writeln('Введите строку: ');
Readln(s);
For i:=Length(s) downto 1 do
If s[i]=' ' Then
begin
  Delete(s,i,1);
  Inc(k);
end;
Writeln('Измененная строка:');
Writeln(s);
Writeln('Кол-во удалений: ',k);
END.

program dv;
uses Crt;
var s:string;
lpos,k:Integer;
begin
ClrScr;
Writeln('Введите строку символов:');
Readln(s);
while pos(' ',s)<>0 do
begin
lpos:=pos(' ',s);
Delete(s,lpos,1);
inc(k);
end;
Writeln('Преобразованная строка:');
Writeln(s);
Writeln('Количество удалений:',lpos);
Readln;
end.

program Project1;
 
var
  S : String;
  i, j, Len : Integer;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    Len := Length(S);
    j := 0;
    for i := 1 to Len do
      if S[i] <> ' ' then begin
        Inc(j);
        S[j] := S[i];
      end;
    SetLength(S, j);
 
    Writeln('Количество удалённых пробелов: ', Len - j);
    Writeln('Строка после обработки:');
    Writeln(S);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

program Project1;
 
var
  S : String;
  i, j, Len : Integer;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    Len := Length(S);
    j := 0;
    for i := 1 to Len do
      if S[i] <> ' ' then begin
        Inc(j);
        S[j] := S[i];
      end;
    {SetLength(S, j);}
    S[0] := Char(j); {Для Borland/Turbo Pascal.}
 
    Writeln('Количество удалённых пробелов: ', Len - j);
    Writeln('Строка после обработки:');
    Writeln(S);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

String = array[0..255] of Char;

var
  S : String;
begin
  S := '11112222';

S[0] := Char(4);

program Project1;
 
var
  {Символьный массив, совпадающий по своему устройству со строкой типа String.}
  Arr : array[0..255] of Char;
  {Указатель на строку.}
  PStr : ^String;
  i : Integer;
begin
  {В указатель на строку записываем адрес символьного массива.}
  PStr := Addr(Arr);
  {Теперь с помощью указателя PStr можно работать с символьным массивом
  точно также, как с обыкновенной строкой типа String.}
  PStr^ := '1234' + '5678';
  Writeln('Строка:');
  Writeln('Длина строки: ', Length(PStr^));
  Writeln('Значимая часть: ', PStr^);
  Writeln('Массив:');
  Writeln('Элемент Arr[0] = ', Byte(Arr[0]));
  Write('Значимая часть: ');
  for i := 1 to Byte(Arr[0]) do Write(Arr[i]);
  Writeln;
  Readln;
end.