строки в Delphi

[Михаил70]

Подскажите пожалуйсто, как мне продолжить следующий код.
Если тут имеются ошибки исправьте пожалуйсто.
И еще, нужно, чтобы выполнялось следующие условие:

Определить длину строки.
2. Проверить символы строки на совпадение с проверяемым символом
3. При совпадении символов удалить лишний символ
4. Уменьшить длину строки при удалении очередного символа

Помогите пожалуйсто продолжить написание этого кода в соответствии с условием выше.

procedure TForm1.Button1Click(Sender: TObject);
  var
    s:string;
    i:integer;
    k:char;
begin
  s:=edit1.Text;
   i:= Length(s);
      for i:=1 to Length(s) do if s[i]=k then....................


end;

end.

[VadEr]

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i,l:integer;
k:char;
begin
s:=edit1.Text;
k:=... тоже вводить надо
l:= Length(s);
for i:=1 to l do if s[i]=k then
begin
delete(s,i,1); // удаление символа
Dec(l);
end;
end;

end.

[Пепел Феникса]

если символ этот константа то можно и без переменной.
я вообще то тогда писал тип переменных для того чтоб не путали типы