Задача по теме файлов + оператор Case Of + меню, Упорядочить по + и по - & определить сколько компонентов файла пре Опции

[Myasnik]

Вообщем дали мне вот такую задачу, я как всегда в ауте из-за срока в 2 дня...

Программа запрашивает имя файла и предоставляет пользователю меню из 3-х пунктов:
a) упорядочить по возрастанию
б) упорядочить по убыванию
в) определить, сколько компонентов файла представляют собой цифры, сколько - не заглавные буквы латинского алфавита, сколько являются восклицательными знаками.

[volvo]

countExclamation := 0;
countDigits := 0;
countLower := 0;
While not Eof(f) Do Begin
  Read(f, Ch);
  Case Ch Of
    '!': Inc(countExclamation);
    '0' .. '9': Inc(countDigits);
    'a' .. 'z': Inc(countLower);
  End;
End;

Где проблема?

[Myasnik]

ну тебе не проблема, а мне уже от написанного плоха

Спасибо Агромное!!!

[Myasnik]

Короч, нарот, помогите... запарился я тут с этой задачей... нужно чтоб оператор выводил и буквы и цифры и сортировал их, получилось только цифры... а как буквы и цифры?

Вот задача (тока работает пока меню 1 пункта, 2 такой же, поменять-то знак, 3 тут написан, ещё не списаль =)))

Program chegevAra;
uses Crt;

Type ff=file of integer;
type Tvector=array [1..10] of integer;

Var 
f1:ff;
Vector:Tvector;
c,b,i,j,a:integer;
Name:string;

Begin
ClrScr;
Randomize;
Writeln('Vvedite imya faila:');
Read(Name);
Assign(f1,Name);
{$i-}
Rewrite(f1);
{$i+}
If ioresult<>0 then rewrite(f1);
For i:=1 to 10 do
begin
a:=random(10);
write(f1,a);
end;

Close(f1);
Writeln('Vse chisla faila:');
reset(f1);
seek(f1,0);
while not Eof(f1) do

begin
read(f1,a);
writeln(a:3);
end;

writeln('Veberite interesuyushiy vas punkt:');
writeln('1)Yporyadochitb po Bozrastaniy.');
writeln('2)Yporyadochitb po yBbIvaniy.');
writeln('3)Opredelitb, skolbko komponentov...');
reset(f1);
read©;
case c of

1:begin
For i:=FILESIZE(F1)-1 downto 1 do
For j:=0 to i-1 do
begin
seek(f1,j);
read(f1,a,b);
if a>b then
begin
seek(f1,j);
write(f1,b,a);
end;
end;

close(f1);
reset(f1);
write('Otsortirivanniy file:');
for i:=1 to Filesize(f1) do

begin
read(f1,a);
write(a:3);
end;

close(f1);
end;
end;
READKEY;
END.