Написать процедуру, удаляющую из строки первое слово - Pascal ABC

Формулировка задачи:

Написать процедуру, удаляющую из строки первое слово.

Решение задачи: «Написать процедуру, удаляющую из строки первое слово»

Листинг программы

uses crt;
procedure DelFirstWord(var s:string);
var i:integer; b:boolean;
 begin
 b:=false;
 for i:=1 to length(s) do
  if s[i] = ' ' then b:=true;
 i:=1;
 if b = true then
  begin
  while (s[i]<>' ') do
   inc(i);
  s:=copy(s,i+1,length(s));
  end;
 end;
 
var s:string;
begin
write('Введите слово: ');
readln(s);
DelFirstWord(s);
writeln(s);
end.

Объяснение кода листинга программы

В начале объявляются необходимые переменные: b, i, s.
Переменная b инициализируется значением false.
Затем идет цикл for, который выполняется от 1 до длины строки s.
Внутри цикла проверяется условие: если текущий символ в строке равен пробелу, то переменная b устанавливается в значение true.
После завершения внутреннего цикла переменная i инициализируется значением 1.
Если значение переменной b равно true, то начинается следующий блок кода.
Внутри этого блока происходит чтение строки s с помощью функции readln.
Затем вызывается процедура DelFirstWord, передавая ей строку s в качестве аргумента.
После выполнения процедуры s перезаписывается, причем начиная с позиции i+1 и до конца строки (так как в процедуре s[i] присваивается значение копирования).
Конец программы.