[vitmann]

Дана строка символов. Если в ней есть символ ‘+’, удалить все символы, предшествующие ему. Если такого символа нет, преобразовать строку, изменив порядок следования символов на обратный.

Код:

var s,t:string;
n,k,i:integer;
c:char;
begin
s:=Edit1.Text;
n:=Length(s);
k:=0;
t:='';
for i:=1 to n do begin

if c=#43 then Delete(s,1,i-1);
 end;
  else
 c:=s[i];
t:=c+t;
end;
  Edit2.Text:=inttostr(k);
  Edit3.Text:=t;
  end;
end.

Админ: Пользуемся тегами для оформления кода!

на else все время ошибку выдает, помогите пожалуйста сделать