[Alegun]

Сообщение от PhoeniX

31 - строка должна быть в кавычках (апострофах, если точнее)...

42я строка тоже.

Код:

assignfile(f, 'output.txt'); 

З.Ы. Как-то забылось, что это текстовый файл

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile;
sl: TStringList;
i,cnt: integer;
str,st: string;
begin
if FileExists('input.txt') then
begin   
AssignFile(f,'input.txt');
   Reset(f);
    Readln(f, st);
    Readln(f,str);
    Readln(f, st);
   CloseFile(f);

   sl:= TStringList.Create;
   sl.Text:= StringReplace(str,' ',#13#10,[rfReplaceAll,rfIgnoreCase]);
   cnt:= 0;
  for i:=0 to sl.Count-1 do if sl[i] = st then Inc(cnt);
   sl.Free;
  if FileExists('output.txt') then 
begin
AssignFile(f,'output.txt');
    ReWrite(f);
    Write(f,cnt);
   CloseFile(f);
end;
end;
end;

работает и так