вывод из файла

[sparki71]

Вообщем задача такая:
Даны два вектора из n чисел найти их скалярное произведение.

написал программу:

Program skal; 
Var 
a, b, s: array [1..9999] of integer; 
I, n: byte; 
Begin 
Write (‘введите размерность массивов:’); 
Readln(n); 
For i:=1 to n do 
Readln (a[i]); { ввод массива a} 
For i:=1 to n do 
Readln (b[i]); { ввод массива b} 
For i:=1 to n do 
S[i]:=a[i]*b[i]; { вычисление скал массивов } 
For i:=1 to n do 
write (s[i],’ ‘); { вывод массива s } 
end.

Проблема в том ,что я понятия не имею ,как сделать туже программу но с выводом из файла числа n. Прощу помощи

[Vanta11a]

Открыть файл, считать переменную, закрыть файл.
Что именно пытались сделать с файлом? Какие функции работы с файлом знаете?

[Stilet]

Program skal; 
Var 
a, b, s: array [1..9999] of integer; 
I, n: byte; f:text;
Begin 
assign(f,'файл'); reset(f);Readln(f,n); 
For i:=1 to n do 
 Readln (f,a[i]); { ввод массива a} 
... Дальше так же.
close(f);

P.S. файл текстовый должен быть.

[SaLoKiN]

Readln(f,n);

вроде читает символ и переходит на следующую строку...как в файле элементы записаны?
и здесь

assign(f,'файл')

вроде как файл с расширением должен лежать.в вашем случае 'файл.txt'

З.Ы.
просто наводящие вопросы не более, вероятность того что я задал их правильно фифти-фифти =)