Помогите с задачей на матрицу(pascal)

[Cyanide]

Условие:в матрице имеются строка и столбец,содержащие только элементы равные нулю.заполните эту строку средними арифметическими по столбцам,а столбец-средними арифметическими по строкам.(задача с внешним файлом).
Попытка решения:

Program zadanie8;
Uses crt;
Var
a:array[1..5,1..5] of real;
 f:text;
 s,sr,s1,sr1:real; 
 i,j:integer;
 begin 
clrscr; 
assign(f,’z8.txt’);
reset(f);
for i:=1 to 5 do 
for j:=1 to 5 do 
read(f,a[i,j]); 
close(f); 
for i:=1 to 5 do 
begin s:=0; 
s:=s+a[1,j]; 
sr:=s/5; 
if a[i,j]=0 then 
a[i,j]:=sr; 
end; 
for j:=1 to 5 do begin 
s:=0; 
s1:=s+a[i,1]; 
sr1:=s1/5; 
if a[i,j]=0 then 
a[i,j]:=sr1; 
end; 
for i:=1 to 5 do begin 
for j:=1 to 5 do 
write(a[i,j]:4); 
writeln; 
end; 
readkey; 
end.

Программа работает,но считает не правильно.Помогите пожалуйста исправить ошибки!

[Sazary]

Как я понял, кроме нулевой строки и столбца больше нулей нет?
Тогда так:

Program zadanie8;
Uses crt;
Var
a:array[1..5,1..5] of real;
f:text;
s : real;
i,j,k,z : integer;

begin 
clrscr; 
assign(f,'z8.txt');
reset(f);
for i:=1 to 5 do 
 for j:=1 to 5 do
  read(f,a[i,j]);
close(f); 

for i:=1 to 5 do 
 begin
 s:=0;
 k := -1;
 for j:=1 to 5 do
  if a[i,j]=0 then
   k := j
  else s := s + a[i,j];
 a[i,k] := s/5;
 end;

z := k;
for j:=1 to 5 do
 begin
 s:=0;
 k := -1;
 for i:=1 to 5 do
  if a[i,j]=0 then
   k := i
  else if j<>z then
   s := s + a[i,j];
 a[k,j] := s/5;
 end;

for i:=1 to 5 do
 begin
 for j:=1 to 5 do
  write(a[i,j]:4:1);
 writeln;
 end;

readln;
end.

[Cyanide]

Да. Спасибо большое,выручили)