read matrix write matrix in pascal read runtime error!!!

[anthony68]

program matrix ;
uses wincrt;

const ad=7;
aw=12;

type
dayindex = 1..ad;
weekindex= 1..aw;
oa = array [weekindex,dayindex] of Integer;

var
y: file of integer;
w: Integer;
o: oa;
r: weekindex;
c: dayindex;


begin
{fill matrix }
assign(y,'y');
reset;
for r := 1 to aw do
for c := 1 to ad do
read(y, o[r,c]);
{write results}
writeln('y:');
for r:=1 to 12 do
begin
w:= 0;
for c := 1 to 7 do
w:=r;
writeln('rij',r,'resultaat',w);
end;

end.

 

[feherke]

Hi

Again, you post the code without explanation, error message, input data sample...

Please read "How To Ask Questions The Smart Way" then review your post.

Feherke.

http://rootshell.be/~feherke/

 

[anthony68]

{something goes wrong in this bit of the program i get een error}
assign(y,'y');
reset;
for r := 1 to aw do
for c := 1 to ad do
read(y, o[r,c]);
{i do not know what wrong here...}