При выполнении задания необходимо текст считать из текстового файла. Результат выполнения программы записать в исходный файл.
вот чтоя нарешал:
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.
Но в правильности всего остального сильно неуверен
Прошу помочь .