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

[Myasnik]

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

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

[volvo]

получилось только цифры... а как буквы и цифры?

Буквы и цифры при использовании

Type ff=file of integer;

?
Никак...
Я же говорил, используй File Of Char...

К тому же, у тебя в программе есть несколько недочетов:

reset(f1);
seek(f1,0); { <-- Зачем это? Указатель и так в начале файла... }

Assign(f1,Name);
{$i-}
Rewrite(f1);
{$i+}
If ioresult<>0 then rewrite(f1);
{ А с чего это, если была ошибка в первый раз, то во второй она НЕ должна произойти? }

2 такой же, поменять-то знак

А если без Copy/Paste?