program ideone;

uses
  SysUtils;

var
  posicao, i: Integer;
  posicoes: Array of Integer;
  texto: String;

begin
  texto := 'teste>para encontrar > na string >';

  while (Pos('>', texto) > 0) do // Verifica se tem '>' na variável texto
  begin
    SetLength(posicoes, Length(posicoes) + 1); // Aumenta um espaço no array
    posicao := Pos('>', texto); // Pega a posição do primeiro >
    posicoes[High(posicoes)] := posicao; // Armazena a posição no ultimo espaço do array
    texto[posicao] := ' '; // Substitui o > por espaço
  end;

  // A partir deste ponto você terá todas as posições dos '>' dentro do array posicoes
  
  WriteLn('Posições:'); // Imprimir o texto "Posições:" na tela
  
  for i := 0 To High(posicoes) do // Percorrer o array posicoes
    WriteLn(IntToStr(posicoes[i])); // Converter o conteudo para string e imprimir na tela
end.