Pascal|Чтение из файла в массив.

[Демик]

Добрый день, помогите написать программу, нужно считать из файла 20 символов в массив, считывание вести из файла неопределенной длины, после считывания нужно работая с элементами массива рассчитать формулу:
yi= (sin(xi)+i)/cos(xi); i=1…20
Но вся проблема в том, что весь год мы изучали ассемблер и C/C++, я конечно понимаю что после этого написать программу не должно составить труда, но у меня почему то не получается =(.
Вот мой код, но в нём какая-то глупая ошибка:

Program test;
Function ReadKey: Char;
Var
C:Char;
F:text;
Y:Array [1..100] Of Double;
A:Array [1..100] Of Double;
i,k:integer;
Begin
assign(f,'INPUT.txt');
reset(f);
while not eof(f) do
inc(k);
read(f,A[k]);
close(f);
for i:=1 to k do
write (a[i],' ');
ReadLn;
end.

Если вам будет не сложно, помогите написать программу.

[Alex11223]

while not eof(f) do
inc(k);
read(f,A[k]);

begin\end;

[Демик]

Сделал как вы сказали, ошибка осталась, говорит отсутствует ';'.

[Alex11223]

В какой строке?) Обычно при таких ошибках это указано.

[Демик]

Сообщение от Демик

Program test;
Function ReadKey: Char;
Var
C:Char;
F:text;
Y:Array [1..100] Of Double;
A:Array [1..100] Of Double;
i,k:integer;
Begin
assign(f,'INPUT.txt');
reset(f);
while not eof(f) do
inc(k);
read(f,A[k]);
close(f);
for i:=1 to k do
write (a[i],' ');
ReadLn;
end.//Вот тут.

В самом конце кода.

[Alex11223]

Function ReadKey: Char;

А это что?

[Демик]

Ммм, это лишнее) С компилировалось. А вы можете написать аналог вот этой формулы, только на паскале? Или хотя бы как sin/cos на паскале пишутся?
yi= (sin(xi)+i)/cos(xi); i=1…20

[Демик]

И для каждого цикла нужно писать begin/end; ?

[Alex11223]

Да вроде так и пишутся:
realvar:=sin(a)
realvar:=cos(a)
и т.д.
y[i]:=(sin(x[i])+i)/cos(x[i]);
как-то так

begin\end; если в цикле больше одного...э...действия
т.е.

for i:=1 to 20 do
   a:=a+i;

можно и без них. А вот тут уже обязательно или b:=b+i будет за циклом:

for i:=1 to 20 do
   a:=a+i;
b:=b+i;

[Демик]

Alex11223, спасибо большое за разъяснения)