произведение матрицы на вектор

[Artur1992]

Найдите произведение матрицы на вектор. Данные реализовать из текстового файла. Помогите пожалуйста.

[Artur1992]

uses crt;
var A:array[1..50,1..50] of real;
b,Ab:array[1..50]of real;
n,i,j:integer;
begin
clrscr;
randomize;
write('Vvedite razmernost n=');
readln(n);
writeln('Matrica A:');
for i:=1 to n do
begin
for j:=1 to n do
begin
A[i,j]:=random(10)+random-3;
write(A[i,j]:6:2);
end;
writeln;
end;
writeln('Vector b:');
for i:=1 to n do
begin
if odd(i) then b[i]:=1/(i*i+2) 
else if not odd(i) then b[i]:=1/i; 
write(b[i]:6:2);
end;
writeln;
writeln('Vector Ab:');
for i:=1 to n do
begin
Ab[i]:=0;
for j:=1 to n do
Ab[i]:=Ab[i]+A[i,j]*b[j]; 
write(Ab[i]:6:2);
end;
readln
end.

Вот примерный код, теперь как мне сделать чтобы данные брались из файла.