Начал решать, и застрял
Var s:string;
i:byte;
k,l:integer;
begin
Write('Input string: ');
Readln(s);
k:=pos(':',s);
I:=Length(s);
If k=0 Then Writeln ('Symvol `:` not found in string') Else
begin
For i:=1 to Length(s) do
begin
If K>1 Then
Begin
l:=k-i;
delete(s,l,i);
Если так то удаляет те символы которые стоят после двокрапки.
Кто подскажет как сделать так чтобы удаляло перед двокрапкой?
И как удалить между двумя двокрапками? Заранее спасибо.
Добавлено через 8 мин.
Уже разобрался, спасибо))