Работа с файлами

[Alina111]

1.Дан текстовый файл. Удалить из него однобуквенные слова и лишние пробелы, вывести все буквы данного текстового файла, входящие в файл не менее двух раз на монитор.
2.Даны целочисленные файлы f и g. Удалить из файла f числа, которые есть в файле g.

[kuy]

первая:
(в файле пиши лучше англ. м.);

program Project2;
{$APPTYPE CONSOLE}
  SysUtils;
 var
 ft:textfile;
 text:string;
 i,y:integer;
 OneSimbol, LotSimbol: set of char;
begin
 assign(ft,'f.txt');
 reset(ft);
 while not eof(ft) do
  begin
   readln(ft,text);
   for i:=1 to length(text) do
    begin
     if ((i=1) or (text[i-1]=' ')) and (text[i+1]=' ') then delete(text,i,1);
    end;
   i:=1;
   repeat
    begin
    if copy(text,i,2)='  ' then text:=copy(text,1,i)+copy(text,i+2,length(text))
    else i:=i+1;
    end;
   until (i>length(text));


    for i:= 1 to length(text) do
  if (text[i] in ['a'..'z','A'..'Z','À'..'ß','à'..'ÿ']) then
  begin
   if (text[i] in OneSimbol) and (not(text[i] in LotSimbol)) then
   begin
    exclude(OneSimbol,text[i]);
    include(LotSimbol,text[i]);
   end
   else if (not(text[i] in OneSimbol)) and (not(text[i] in LotSimbol)) then
    include(OneSimbol,text[i]);
  end;

if (LotSimbol <> []) then
begin
writeln('Povtoryauschiesa bookvu:');
i:= 0;
repeat
 inc(i);
 if (text[i] in LotSimbol) then
 begin
  write(text[i],' ');
  exclude(LotSimbol,text[i]);
 end;
until (LotSimbol = []);
end
else
writeln('Nety povtoryauschihsya bookv.');

  end;
 closefile(ft);
 rewrite(ft);
 write(ft,text);
 closefile(ft);
readln;
end.