Файлы. Pascal

[Kind1]

Составить программу подсчета числа различных компонент целочисленного файла. Результаты нужно записать в файл.
Помогите пожалуйста с задачкой!!!

[Vanta11a]

Читаете из файла переменную, смотрите её наличие во множестве А, если нет - добавляете её в множество А, увеличиваете счетчик, читаете дальше пока не конец файла.

[ZX Spectrum-128]

Для byte только, для остальных целых не будет работать.

[Kind1]

В том то и дело, что вообще не получается.((( Уважаемые программисты, помогите пожалуйста.

[ZX Spectrum-128]

А попытки свои покажите. Открытие файла, чтение из него?

[ZX Spectrum-128]

Вот вам заготовка. Работу с файлами - сами.

uses
  crt;
var
  a:array of integer;
  k,j,i,n,x:integer;
  ispresent:boolean;
begin
  clrscr;
  n:=1;
  k:=0;
  readln(x);
  setlength(a,n);
  a[k]:=x;
  for i:=1 to 5 do
    begin
      readln(x);
      ispresent:=true;
      for j:=0 to length(a)-1 do
       if x=a[j] then
        begin
          ispresent:=false;
        end;
      if ispresent then
        begin
          n:=n+1;
          setlength(a,n);
          k:=k+1;
          a[k]:=x;
        end;
    end;
  clrscr;
  for i:=0 to length(a)-1 do
    write(a[i],' ');
end.

[Serge_Bliznykov]

Сообщение от ZX Spectrum-128

Вот вам заготовка. Работу с файлами - сами.

var
  a:array of integer;
....
  setlength(a,n);

ну, тут надо учитывать, какой Паскаль.
Например, старина TurboPascal не поддерживает такую запись...

[ZX Spectrum-128]

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

ну, тут надо учитывать, какой Паскаль.
Например, старина TurboPascal не поддерживает такую запись...

Это да. Спасибо.
Я уже и подзабыл такие детали. Ну в случае тп можно обычный массив использовать.

[Kind1]

Спасибо Вам! Я как раз в Турбо Паскале работаю. А Free Pascal подойдет?

[Poma][a]

А Free Pascal подойдет?

Да.. На данный момент - он лучший..