Несколько задач на работу с файлами и строками., 3 небольших задачи. Опции

[Jaxx]

1.Текст программы на Паскале хранится в файле на диске. Составить программу обработки текста программы: а)определить максимальную степень вложенности циклов в программе; б)определить общее количество строк и количество символов, отличных от пробела; в)удалить из текста программы все комментарии.
2.Текст программы на Паскале хранится в файле на диске. Составить программу обработки текста программы: а)первые буквы служебных слов сделать заглавными; б)текст комментария заменить на номер комментария по порядку; в)переписать текст программы в новый файл с минимальным количеством пробелов, сохранив их только там, где они необходимы.
3.Текст программы на Паскале хранится в файле на диске. Распечатать на экране текст программы таким образом, чтобы в каждой строке размещался только один оператор. Организовать смещение операторов относительно операторных скобок, как это принято в Паскале.
Помогите сделать какую-нибудь одну !

[P@sh@]

Oleg_Z
несколько замечаний...
1. интересно, а что твоя прога скажет насчет такой вложенности?

Код

for i:=1 to n do
 for j:=1 to m do
   while x<z do inc(x);

2. после inc(nz) наверное надо вставить строчку
if maxnz<nz then maxnz:=nz;
и выводить соответственно...

3. если уж не нравится length(s), то и ord(s[0]) не используй, пиши уж byte(s[0]) - так вообще никаких функций не вызывается

4. вместо конструкций if (s[i]='A') and (... проще написать
if copy(s,i,5)='WHILE' then ...

конструктивные предложения будут чуть попозже...