Строки в Паскале.

[hohol90]

помогите вывести самое длинное слово с буквы "а" в обратном порядке

Вот уже ищет слово, но как я не пытался выводить в обратном порядке не получается.

uses
  crt;
const
  dividers=[' ',',','.',';',':','-','=','+'];{дописать нужные}
var
  s,temp,max:string;
  i,c:integer;
begin
  clrscr;
  writeln('Введите строку:');
  readln(s);
  temp:='';
  max:='';
  c:=0;
  {пробегаем всю строку посимвольно}
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if (s[i] in dividers) or (i=length(s)) then
    begin
      if (temp<>'') and (temp[1] in ['a','A','а','А']) then
      begin
        if length(temp)>length(max) then
          max:=temp;
        inc(c)
      end;
      temp:=''
    end;
  end;
  writeln('Самое длинное слово на "а": ',max,'. Всего таких слов: ',c)
end.

[Utkin]

Итак самое длинное слово у тебя есть?
Определи его длину и в убывающем цикле посимвольно составь его задом наперед.

for i:=Length(slovo) downto 1 do
begin 
     x:=x+slovo[i];
end;

Это основа, адаптируешь под себя.

[dr.Chas]

var
  s, slovo, max:string;
  i:integer;
begin
  writeln('Введите строку:');
  readln(s);
  s:=s+'.';
    i:=1;  slovo:='';  max:='';
    while i<>length(s)+1 do
    begin
      if s[i] in ['a'..'z','A'..'Z','1'..'9'] then slovo:=slovo+s[i]
      else begin
        if ((slovo[1]='a')or(slovo[1]='A'))and(Length(slovo)>Length(max))then
         max:=slovo;
        slovo:='';
      end;
      inc(i);
    end;

    for i:=length(max) downto 1 do
      write(max[i]);
  readln;
end.

[Utkin]

Ты выводишь посимвольно, в моем случае после цикла х содержит все слово.

[hohol90]

большое спасибо ВАМ)