Нужна корректировка

[Verwolf]

Мне нужно переделать программку на паскале чтобы данные которые в водятся тут с клавиатуры считывались с файла. Задача:найти сумму положительных и произведение отрицательных ниже главной диагонали используя процедуры и чтобы их было как минимум 4. Программа есть. Просто нужно сделать так, чтобы данные считывались с файла под названием "кк" находящийся на локальном диске D
program matr1;
uses crt;

type matr=array[1..100,1..100] of real;
Procedure InitMatrix(var a:matr;n:integer);
var k,l:integer;
begin
for k:=1 to n do
for l:=1 to n do begin
writeln('[',k,l,']=');
readln(a[k,l]);
end;
end;
Procedure vivMatrix(var a:matr;n:integer);
var k,l:integer;
begin
clrscr;
for k:=1 to n do begin
for l:=1 to n do
write('[',k,l,']=',a[k,l]:6:2);
writeln;
end;
end;
function sum( var a:matr;n:integer):real;
var i,j:integer;
su:real;
begin
su:=0;
for i:= 1 to n do
for j:= 1 to n do
if (i>j) and (a[i,j]>0) then su:=su+a[i,j];
sum:=su;
end;
function pr(var a:matr;n:integer):real;
var i,j:integer;
pro:real;
begin
pro:=1;
for i:= 1 to n do
for j:= 1 to n do
if (i>j) and (a[i,j]<0) then pro:=pro*a[i,j];
pr:=pro;
end;

var m:matr;
i,j,n:integer;
s,p:real;
begin
writeln('input n');
readln(n);
initMatrix(m,n);
vivMatrix(m,n);
s:=sum(m,n);
p:=pr(m,n);
writeln(s:6:2);
writeln(p:6:2);
readln;
end.
Помогите пожалуйста.... Очень срочно.... Заранее большое спасибо

[Вавел из ГМТУ]

Ого какой длиный код.. у меня аж палец вспотел колёсико крутить..

Var F : TextFile;
...
AssignFile(F, 'D:\kk.txt');
Reset(F);
Read(F, n);
CloseFile(F);
...

[Verwolf]

Сообщение от Вавел из ГМТУ

Ого какой длиный код.. у меня аж палец вспотел колёсико крутить..

Var F : TextFile;
...
AssignFile(F, 'D:\kk.txt');
Reset(F);
Read(F, n);
CloseFile(F);
...

Огромное спасибо А как в файле данные должны быть записаны? Пробел или Enter

[Вавел из ГМТУ]

А какие вобще значения нужно считать из файла? Я вижу только что нужно считать n....

В любом случае сколько бы их там ни было:

Read(F, a, b, c, d, e .....);

А в файле нужно записать строку:
25 1 54 5 6 ....

Тоесть значения переменых через пробел.

[Verwolf]

Огромное спасибо!!! =)