Помогите отладить программу
 

Привет всем. помогите с прогой. надо правильно указать пути к входному и выходному файлу. Входной - In.txt, выходной - out.txt/ Оба лежат в корне на диске F.

program zad_1_10;
uses crt;
var
a,c:array[1..100,1..100]of integer;
v:array[1..100]of integer;
i,j,k,summa:integer;
f,f_out:text;
procedure readA;
begin
writeln('Matrica A:');
writeln(f_out,'Matrica A:');
for i:=1 to 5 do begin
for j:= 1 to 5 do begin
read(f,a[i,j]);
write(a[i,j]:3);
write(f_out,a[i,j]:3);
end;
writeln;
writeln(f_out);
end;
end;
procedure A_E;
begin
for i:=1 to 5 do begin
for j:= 1 to 5 do begin
if i=j then a[i,j]:=a[i,j]-1;
write(a[i,j]:3);
write(f_out,a[i,j]:3);
end;
writeln;
writeln(f_out);
end;
end;
procedure summ;
begin
writeln('summa po stolbcam:');
writeln(f_out,'summa po stolbcam:');
k:=0;
for j:=1 to 5 do begin
k:=k+1;
for i:= 1 to 5 do
v[k]:=v[k]+a[i,j];

write(v[k]:3);
write(f_out,v[k]:3);
end;
end;
procedure creatC;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if j=i then begin

c[i,j]:=v[i];
summa:=summa+c[i,j]; end else
c[i,j]:=0;
write(c[i,j]:3);
write(f_out,c[i,j]:3);
end;
writeln;
writeln(f_out);
end;
writeln('Sled=',summa);
writeln(f_out,'Sled=',summa);
end;



begin
clrscr;
randomize;
assign(f_out,'dat1.txt');
rewrite(f_out);
assign(f,'dat.txt');
reset(f);
readA;
writeln('Matrica A-E:');
writeln(f_out,'Matrica A-E:');
A_E;
summ;
writeln;
writeln('Matrica C:');
writeln(f_out);
writeln(f_out,'Matrica C:');
creatC;

close(f);
close(f_out);
readkey;
end.

Ассоциация файловых переменных и файлов на диске делается этими командами. Пути пропишите самостоятельно :))

Дык... вроде как в теле программы всё так правильно и написано... вот только имена не те, что в описании - ну да это легко поправимо.

Вот и я про то же :)

выдает такую ошибку

Предупреждение:

На будущее - Вам сюда: http://www.tehnari.ru/f8/t32642/

Значит, файл, который Вы пытаетесь открыть на чтение, не существует. По крайней мере по указанному пути. Проверьте.