Работа со строками на Паскале

[lexero4ek]

Текст программы на Паскале храниться в файле на диске. Составить программу обработки текста программы: 1)Определить общее количество слов и количество
символов, отличных от пробела; 2)Удалить из текста рограммы все комментарии.Если кто знает напишите плиз, заранее спасибо.

[Stilet]

напишите плиз,

Что все-все-все??? За тебя? И конфеты за тебя тоже кушать?
Кстати, насчет определения кол-ва слов могу предложить такое:

var s:string;  i,count:integer;
begin
 s:='Hello    my world';
 count:=1;
 i:=1; while (i<=length(s)) do begin
   if (s[i]=' ')and(s[i+1] in ['a'..'z','A'..'Z']) then begin inc(count);inc(i);end;
   inc(i);
 end;
 write(count);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.