Ошибка в коде(паскаль)

[Artur1992]

Помогите пожайлуста найти ошибку, данный код должен из массива выбрать элементы, а затем сложить выбранные элементы, и выполнить сложение без выбранных элементов.

uses crt;
const maxn=100;
var
a:array[1..maxn,1..maxn] of real;
f:array[1..maxn] of real;
i,j,k,n,b,c:integer;
s,s1:real;
begin;
clrscr;
write('Vvedite kolichestvo elementov:');
readln(n);
write('Vvedite massiv:');
for i:=1 to n do begin
for j:=1 to n do begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
end;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:8:2);
writeln
end;
s:=0;
for k:=1 to n  do begin
writeln('Vyberite element iz stroki',k,'');
read(f[k]);
s:=s+f[k];
end;
s1:=0;
for k:=1 to n do begin
for i:=1 to n do begin
if f[k]=a[i,j] then a[i,j]:=0;
s1:=s1+a[i,j];
end;
end;
writeln('s:',s);
writeln('s1:',s1);

end.

[mss]

http://govnokod.ru/

[Artur1992]

И что дальше?

[rubius2008]

Сообщение от Artur1992

Помогите пожайлуста найти ошибку, данный код должен из массива выбрать элементы, а затем сложить выбранные элементы, и выполнить сложение без выбранных элементов.

uses crt;
const maxn=100;
....
for k:=1 to n do begin
for i:=1 to n do begin
if f[k]=a[i,j] then a[i,j]:=0;
s1:=s1+a[i,j];
end;
end;
....

end.

вот этот кусок скорей всего так должен выглядеть

for k:=1 to n do begin
for j:=1 to n do begin
if f[k]=a[k,j] then a[k,j]:=0;
s1:=s1+a[k,j];
end;
end;

[Artur1992]

Спасибо большое!