Удаление символов в строке - Pascal

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

Есть программа, удаляющая все после знака "+"(вместе с ним). Нужно ее переделать так, чтобы она удаляла все перед знаком "+"(вместе с ним). Кажется очень легко, но я ничего не могу сделать...

program p1;
var s:string;
h,n,i,k:integer;
begin
readln (s);
n:=length(s);
k:=pos('+',s);
h:=n-k+1;
delete(s,k,h);
end;
if k=0 then writeln ('Нет знака "+"')
else writeln (s);
end.

Решение задачи: «Удаление символов в строке»

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

program p1;
 
var s:string;
 
begin
  readln (s);
  if pos('+', s) > 0 then delete(s, 1, pos('+', s));
  writeln('Result:');
  writeln(s);
  readln
end.

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

В этом коде выполняется следующая последовательность действий:

Ввод строки с помощью функции readln.
Проверка наличия символа + в строке с помощью функции pos.
Если символ + найден, то вызывается функция delete для удаления символов в строке, начиная с первого и до символа + (включительно).
Вывод результата на экран с помощью функции writeln.
Ввод символа для завершения работы программы с помощью функции readln.