Огромное число

[МихаилС]

Всем доброго времени суток. Возникла проблема. Мне надо написать программу, которая считывает из файла 'data.dat' число, находящееся на 2ой строчке этого файла в массив(т.е. каждая цифра числа находится в отдельной ячейке массива) и выполняет с этим числом определенные операции. Эти 'Определенны операции' я написал. Проблема в том, что не знаю как считать из файла эти цифры так, чтобы каждая находилась в своей ячейке массива.
На 1ой строчке файла присутствует число N. Число N равно количеству цифр в числе( при этом 1<N<1 000 000). Подскажите пожалуйста, как записать это число в массив.

program NightMare;
type BigAr = array[1..1000000] of byte;
function Check(var a1:Bigar;n:integer):integer;
var count:integer;
begin
  count:=0;
  if (a1[n]=10) then begin
    Inc(count);
    a1[n]:=0;
    Inc(a1[n-1]);
    Check(a1,n-1);
  end;
  check:=count;
end;
procedure Swap(var a1:BigAr;n:integer);
var arr:Bigar;
    i,t,f,l,k:integer;
begin
  t:=0;
  k:=n;
  l:=n div 2;
  for i:=l downto 1 do begin
    Inc(t);
    f:=a1[k];
    a1[k]:=a1[t];
    a1[t]:=f;
    dec(k);
  end;
end;

var a1:BigAr;
    b,n,c,i,counter:integer;
    f:text;
    ch:char;
begin
  Assign(f,'bezmiegs.dat');
  Reset(f);
  Read(f,n);
  i:=1;
  while not eof(f) do begin
    Read(f,ch);
    a1[i]:=ord(ch)-48;   //Это, к сожалению, не работает.
    Inc(i);
  end;
 { Writeln('Enter N value!');
  Readln(n);
  For b:=1 to n do begin      //Использовал для ввода вручную
    Readln(c);
    a1[b]:=c;
  end;}
  close(f);
  writeln;
  counter:=1;
  b:=1;
  While b<>0 do begin
    Inc(counter);
    Inc(a1[n]);
    c:=Check(a1,n);
    n:=n-c;
    Swap(a1,n);
    b:=0;
    for i:=1 to n-1 do begin
      b:=b+a1[i];
    end;
  end;
  Assign(f,'bezmiegs.rez');
  Rewrite(f);
  Write(f,a1[1]);
  Write(f,' ');
  Write(f,COunter);
  close(f);
end.

Буду признателен за помощь.

[ipaSoft]

type bigarr
var al: Bigarr
..
...

while (not EOF(file)) do 
ReadLn(file, mytempstring);
for aaaa := 1 to length(mytempstring) do
al[aaaa] := ord(mytempstring[i])-48;

Вроде того..
У меня там косяки и вникать некогда. Вообщем я хочу сказать, что можно прочитать строчку и представить ее массивом.

[МихаилС]

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

type bigarr
var al: Bigarr
..
...

while (not EOF(file)) do 
ReadLn(file, mytempstring);
for aaaa := 1 to length(mytempstring) do
al[aaaa] := ord(mytempstring[i])-48;

Вроде того..
У меня там косяки и вникать некогда. Вообщем я хочу сказать, что можно прочитать строчку и представить ее массивом.

Дело в том, что макс. длина строки 255 элементов, а мне надо 1 000 000.

[Serge_Bliznykov]

судя по представленному коду, у МихаилС код на TurboPascal
там строчку длиной миллион символов не считаешь!

МихаилС, Вы правильно решили читать посимвольно!

 i:=1;
  while not eof(f) do begin
    Read(f,ch);
    a1[i]:=ord(ch)-48;   //Это, к сожалению, не работает.
    Inc(i);
  end;

почему не работает?!
в чём это выражается?!
А почему N читаете через Read, а не ReadLn ?

А попробуйте так:

  Assign(f,'bezmiegs.dat');
  Reset(f);
  ReadLn(f,n);
  i:=1;
  while not eoln(f) do begin
    Read(f,ch);
    a1[i]:=ord(ch)-48;   
    Inc(i);
  end;

или даже так:

  Assign(f,'bezmiegs.dat');
  Reset(f);
  ReadLn(f,n);
  for i:=1 to N do begin
     Read(f,ch);
      a1[i]:=ord(ch)-48; 
  end;

[МихаилС]

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

судя по представленному коду, у МихаилС код на TurboPascal
там строчку длиной миллион символов не считаешь!

МихаилС, Вы правильно решили читать посимвольно!

почему не работает?!
в чём это выражается?!
А почему N читаете через Read, а не ReadLn ?

А попробуйте так:

  Assign(f,'bezmiegs.dat');
  Reset(f);
  ReadLn(f,n);
  i:=1;
  while not eoln(f) do begin
    Read(f,ch);
    a1[i]:=ord(ch)-48;   
    Inc(i);
  end;

или даже так:

  Assign(f,'bezmiegs.dat');
  Reset(f);
  ReadLn(f,n);
  for i:=1 to N do begin
     Read(f,ch);
      a1[i]:=ord(ch)-48; 
  end;

Всё заработало, спасибо. Всё из за того, что я первый раз ставил не readln, а просто read. Видимо, не до конца разобрался, чем read От readln отличается в работе с файлами. Буду знать. Спасибо!