Если вы не можете мне сделать задачи, тогда я думаю сможете помочь хотя бы довести до ума.
Вот то что я сделал в первой задаче:
----------------------------------
program Clane_N_2;
uses crt;
var
t,s,longSim :string;
max :integer;
i :integer;

function Simmetric(ss:string):boolean;
var k,j:integer;
begin
Simmetric:=True;
k:=length(ss) div 2;
for j:=1 to k do
if ss[j]<>ss[length(ss)-j+1] then begin Simmetric:=false;break;end;
end;

begin
ClrScr;
write('Input string -> ');readln(s);
i:=1; max:=0;
while i<=length(s) do
begin
t:='';
while (s[i]<>' ') and (i<=length(s)) do
begin
t:=t+s[i];
i:=i+1;
end;
if Simmetric(t) then
if length(t)>max then
begin
max:=length(t);
longSim:=t;
end;
while s[i]=' ' do i:=i+1;
end;
writeln('Very long simmetric word: ',longSim);
readln;
end.
----------------------

То что тут есть, эта прога находит самые длинные симметричные слова,
ей только надо добавить:
1) чтоб она это брала из текстового файла
2) чтоб она искала слова только с одной гласной
у меня все не получается, пишет несовместимость типов.
Надеюсь на вашу помошь, просто сдать проги нада в понедельник, если не сдам то в натуре капут!!!
PS В паскале я действительно дуб дубом.