Question

Удалить из строки символы между 1 и последней *, если *<2, то вывести сообщение.
вот программа, что не так?
var s:string; k1,k2,i:integer;
begin
writeln('введи строку');
readln(s);
k1:=pos('*',s);
for i:=1 to length(s) do
if s[i]='*' then k2:=i;
if (k1=0) or (k2=0) then writeln('нет ни одной *')
else if (k1<2) or (k2<2) then writeln('нет 1 звездочки')
else delete(s,k1,k2-k1+1);
write(s);
writeln;
readln;
end.
на 1 скрине просто удаляет *,а на 2 скрине выводит так...

Answer 1

var
  s:string;
  k1,k2,i:integer;
begin
writeln('введи строку');
readln(s);
k1:=pos('*',s);
for i:=k1+1 to length(s) do
  if s[i]='*' then k2:=i;
if (k1=0) then writeln('нет ни одной *')
  else if (k2=0) then
    writeln('нет 1 звездочки')
      else delete(s,k1,k2-k1+1);
write(s);
writeln;
readln;
end.