Работа со строками в Delphi

[alterius]

Решите пожалуйста задачу, кому не составит труда. В этих строках вообще на шарю ((
Дана строка символов. Подсчитать, сколько раз в строку входит первый символ. Удалить часть строки, расположенную после последнего вхождения первого символа. Если он встречается только один раз, заключить всю строку в фигурные скобки.

[Сtrl]

program Stroka1;
{$APPTYPE CONSOLE}
uses  SysUtils;
var
  Stroka: string;
procedure EdgingString(var str: string);
begin
  str := '{' + str + '}';
end;
function FirstSymbolCount(str: string): Integer;
var
  I: Integer;
  FirstSymbol: char;
begin
  Result := 0;
  if length(str) >= 1 then
  begin
    Result := Result + 1;
    FirstSymbol := str[1];
    for I := length(str) downto 2 do
      if str[I] = FirstSymbol then
        Result := Result + 1;
  end;
end;
procedure DeleteAfterLastCopyOfFirstSymbol(var str: string);
var
  I: Integer;
  FirstSymbol: char;
begin
  if length(str) >= 1 then
  begin
    FirstSymbol := str[1];
    for I := length(str) downto 1 do
      if str[I] = FirstSymbol then
      begin
        Delete(str, I+1, length(str) - I);
        Break;
      end;
  end;
end;
begin
  Writeln('Enter text string: ');
  Readln(Stroka);
  Writeln('First symbol of this string repeats ', FirstSymbolCount(Stroka),
    ' times.');
  DeleteAfterLastCopyOfFirstSymbol(Stroka);
  Writeln('Symbols after last copy of first symbol was deleted: ');
  Writeln(Stroka);
  if FirstSymbolCount(Stroka) <= 1 then
  begin
    EdgingString(Stroka);
    Writeln('String was edged: ', Stroka);
  end;
  Readln;
end.

[alterius]

Спасибо вам большое! Буду сидеть разбираться)