Помогите решить программу со строковыми процедурами и их функциями

[Тищук Евгений]

Помогите пожалуйста написать программу: С помощью программы вводить отдельные слова, пока не встретится слово "завтрак". Ввести каждое слово наоборот (например: введено слово"унитаз", ввыводится слово "затину"). Составить и ввести сумму, число слов у которых число гласных и согласных одинаково.

P.S. Хотя бы подскажите как перевернуть слова, остальное я сам напишу.

[eoln]

function revers(s: string): string;
var
  i: byte;
  st: string[1];
begin
  for i := 1 to length(s) div 2 do
  begin
    st := s[i];
    s[i] := s[length(s) - i + 1];
    s[length(s) - i + 1] := st[1]
  end;
  revers := s
end;