задача на работу с файлами и строками Опции

[MiH@N]

задача такая: Дан произвольный русский текст. Проверить каких букв в нем больше: гласных или согласных.
При выполнении задания необходимо текст считать из текстового файла. Результат выполнения программы записать в исходный файл.

вот чтоя нарешал:

procedure TForm1.Button1Click(Sender: TObject);
var text : textFile;  V1 : string;  i,g,s : integer;
begin
s:=0; g:=0;
assignfile(text,'K:\text.txt');
reset(text);
read(text,V1);
for i:=1 to length(V1) do
  case V1[i] of
  'а','о','у','э','ы','и','я','ё','ю','е' : g:=g+1;
  'б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ' : s:=s+1;

	  if g<s then Write (text,V1)
			 else Write (text,V1);

end;

проверьте кто может и укажите ошибки плз.
З.Ы. ошибка выскакивает после

else Write (text,V1);

такая:

[Error] Unit1.pas(40): Constant expression expected.

Но в правильности всего остального сильно неуверен
Прошу помочь .

[renesko1]

f : text ;
mas1 : massiv c glasnimii ;
mas2 : massiv c soglsnimi ; //инициализиркй их тоже сам
simvol : char ;
g : integer ;
begin 
assign(f, 'put k text');
reset(f) ;
while not eof(f) do begin
  READ(f, cimvol) ;
  if simvol prinadlechit k mas1 then inc(g) ; // функцию принадлежности напишешь сам как нмибудь   
  if simvol prinadlechit k mas2 then dec(g) ;
end ;
if g > 0 then writeln('glasnix > soglasnix');
if g < 0 then writeln('soglasnix > glasnix') ;
if g = 0 then writeln('glasnix = soglasnix' );
end ; 

вроде так ;

Сообщение отредактировано: renesko1 - 22.06.2008 0:48