[ALexandr555]

Код:

program ConPrg;
{$APPTYPE CONSOLE}

var
fin, fout: TextFile;  
result: string;  
n1,n2,k,z: real;
i: integer;
m: array[1..101] of integer;
begin
{ CONSOLE}

AssignFile(fin, 'input.txt'); 
Reset(fin); 
read(fin, m);

k:=0;
n2:=0;
for i:=1 to m[1] do
 begin
  z:=m[i+1]/1000;
  k:=k+z;
  n1:=n2;
  n2:=Round(k);
  if (n2-n1)>z then result:=result+'C'
  else if ((n2-n1)<z) or ((n2-n1)=z) then result:=result+'F';
 end;

CloseFile(fin);
AssignFile(fout, 'output.txt');
Rewrite(fout);
write(fout, result);
CloseFile(fout);
end.

написал пока так на обум read(fin, m);
вобщем как мне считать строчки из файла в массив, не сталкивался с этим
и еще вопрос как считать к примеру 1 и 2 строчку

Код:

Read(fin, s,l);

в s первая строчка а l пустая

все нашел

Код:

Readln(fin, s);
Readln(fin, l);

первые две строки считать

Код:

for i:=1 to 101 do
Readln(fin, m[i]);

а в массив так