Delphi txtfile

[Марат05]

Условие задачи - удвоить все гласные буквы в текcтовом файле!Помогите доделать и устронить ошибки !

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var x1:string; i,j:string;
A:set of char;
f1,f2:Textfile;
begin
Assignfile (f1,'f1.txt');
Assignfile (f1,'f2.txt');
reset (f1);
//A:=['a','о','у','е','я','ю','э','ы','и'];
A:=['a','o','y','e','u','i'];
//readln (x);
while x[i]<=length(i) do
 //возвращает количество символов в строке.
  begin
  ReWrite (f2);
  for j:=length(x+x[i] downto i+x[i] do
    if x[i] in A then
      begin
        x:=x+' ';
        for j:=length(x+x[i] downto i+x[i] do
          x[j]:=x[j-x[i]];
        x[i]:=x[i]+x[i];
        end
    else x[i]:=x[i]+x[i];
end;
closefile(f1);
closefile(f2);
writeln (x);
readln;
end.

[Mad_Cat]

var s,s1:string;i:integer;
A:set of char;
f1,f2:Textfile;
begin
Assignfile (f1,'f1.txt');
Assignfile (f1,'f2.txt');
reset (f1);
ReWrite (f2);
//A:=['a','о','у','е','я','ю','э','ы','и'];
A:=['a','o','y','e','u','i'];

while not eof(f) do begin
readln(f,s);
s1:='';
for i:=1 to length(s) do
begin
s1:=s1+s[i];
if s[i] in A s1:=s1+s[i];
end;
writeln(f1,s1);
end;
closefile(f1);
closefile(f2);
end.

[Serge_Bliznykov]

Mad_Cat, нормально.
только я бы рекомендовал множество A описать как:

A := ['A','a','E','e','I','i','O','o','U','u'];

p.s. кстати, в задании не ясно, о гласных буквах какого языка идёт речь - русского, латинского или какого-то ещё...

[Марат05]

Условие:
1.Есть ли в данном массиве столбец,в котором равное количество положительных и отрицательных элементов! Я незнаю как решить эту задачу!
1 1 1 1 1 1
1 2 3 4 5 6
1 3 6 10 15 21
1 4 10 20 35 56
1 5 15 35 70 126
1 6 21 56 125 252

помогите пожалуйста!!!!!!!!!!!!!1

[Serge_Bliznykov]

одна тема - одна задача...
закрыто.


p.s. кстати, могли Mad_Cat за решение Вашей задачи хотя бы спасибо сказать!..