[Diplomate]

Передо мной стоит простая задача:есть входной файл input. В первой строке написано число элементов массива, во второй - сами элементы массива. В третьей строке записано любое число. Я должен посчитать, сколько раз в массиве встречается число из третьей строки. Сама задача невероятно простая, но я не понимаю, как работать с файлами! Вот мой код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure TForm1.FormCreate(Sender: TObject); var f:file; n,x,i,p,r:integer; a:array of integer; begin r:=0; assignfile(f,input.txt); //это строка 31 reset(f); readln(f,n); setlength(a,n); for i:=0 to n-1 do //это строка 35  read(f,a[i]); readln(f,p); read(f,x); closefile(f); for i:=0 to n do  if  a[i]=x then inc(r); assignfile(f,output.txt); rewrite(f); write(f,r); closefile(f); end;

Понимаю, что эта программа вообще через задницу написана...но в обычном Паскале аналогичная работает. Вот, какие ошибки выводит.
[Error] Unit1.pas(31): Record, object or class type required
[Error] Unit1.pas(35): ';' expected but 'FOR' found
В общем, объясните дураку, почему это не работает?

[PhoeniX]

31 - строка должна быть в кавычках (апострофах, если точнее).
35 - "';' требуется, но 'FOR' найдено". Хотя не вижу причин для этой ошибки...

[Alegun]

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

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

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

Код:

1	assignfile(f, 'output.txt');

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

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;

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

[Diplomate]

С кавычками я пробовал писать. Ошибка теперь еще хуже:
[Error] Unit1.pas(33): Incompatible types: 'procedure, untyped pointer or untyped parameter' and 'Integer'. Что ему не нравится-то?

[angvelem]

Исправленный пример

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

procedure TForm1.Button1Click(Sender: TObject); var   f      : TextFile;   Count,   Search,   I, J   : Integer;   buf    : array of Integer; begin   AssignFile(f, 'input.txt');   Reset(f);   ReadLn(f, Count);   SetLength(buf, Count);     for I := 0 to Count - 1 do     Read(f, buf[i]);     ReadLn(f);   ReadLn(f, Search);   CloseFile(f);     J := 0;   for I := 0 to Count - 1 do     if buf[i] = Search then       inc(J);     AssignFile(f, 'output.txt');   Rewrite(f);   WriteLn(f, 'Совпадений найдено = ', J);   CloseFile(f); end;

input.txt

Код:

1 2 3

16 25 64 78 82 62 58 25 21 22 33 23 53 22 65 26 22 22

output.txt

Код:

1	Совпадений найдено = 3

[Diplomate]

Попробовал Ваш вариант, работает. Единственное, что мне не понятно - почему моя программа не работает?

[angvelem]

В твоём варианте вместо TextFile используется File.