работа с текстом

[Yrec]

ребята если кому не трудно помогите эти 2 задания

1)Определить количество слов в файле.


2)Даны два текстовых файла. Поменять местами содержимое этих файлов.

кому не в падлу

[denisbrain]

const
  WordChars:set of Char =['А'..'Я','а'..'я','A'..'Z','a'..'z','0'..'9','-']; // символы из которыйх состоит слово



Function GetWordCount(s:string):integer;
 var y,x:integer;
     s2:string;
begin
  y:=0;
  s2:='';
  for X:=1 to length(s) do begin
    if  (s[x] in WordChars) then begin
       s2:=s2+s[x];
    end
     else begin
       y:=y+1;
      s2:='';
    end
  end;
  if s2<>'' then Y:=y+1;
  GetWordCount:=y;
end;

Function GetWordCountFromFile(Filename:string):integer;

http://netsoftware.ucoz.ru/news/pros.../2012-05-18-70