Padėkit rasti klaidą (Pascal)

Sveiki. Reikalinga programuotujų pagalbą. Padėkit mano kode rasti klaidą.

Užduotys:

Snaiperių turnyre dalyvauja(1<D<=100) krepšininkų. Kiekvienas dalyvis meta į krepšinį M(1<M<=25) metimų seriją. Taiklus metimas=1taškas, netaiklus=0taškų.

Rasti:

daugiausiai taškų pelniusio dalyvio numerį ir taškų sumą;

Dalyvio, pataikusio daugiausiai taiklių metimų, einančių vienas paskui kitą iš eilės, numerį ir taiklių metimų serijos ilgį.

Duomenų failas:

6
3
1 1 0 1 1 1
1 0 1 0 1 0
0 1 1 1 1 0

Kodas:

program Bevarde24;
const CDuom='duom.txt';
     CRez='rez.txt';
type TMas=array[1..100] of integer;
var i,metimai,dalyviai:integer;
s,tas,ilg:TMas;
//---------------------------------------
procedure duomenys;
var s,i,j,metimai,dalyviai:integer;
Df:text;
begin
Assign(Df,CDuom);
Reset(Df);
Readln(Df,metimai,dalyviai);
for i:=1 to dalyviai do
begin
for j:=1 to metimai do
Readln(Df,s[j]);
end;
Close(Df);
end;
//------------------------------------
procedure ilgiausia(var max:integer);
var s,j,suma:integer;
begin
suma:=0;
max:=1;
if s[j]=0 then begin
max:=suma;
suma:=0;
else
suma:=suma+1;
if suma>max then max:=suma;
end;
//----------------------------------
procedure  taskai(var suma:integer);
var suma,i:integer;
begin
suma:=0;
for i:=1 to metimai do
suma:=suma+s[i];
end;
//----------------------------------
procedure didziausias(var nr:integer);
var nr,j:integer;
begin
nr:=1;
for j:=1 to metimai do
if taskai[nr]<taskai[j] then
nr:=j;
end;
//-----------------------------------
begin
Assign(Rf,CRez);
Rewrite(Rf);
duomenys;
ilgiausia(max);
taskai(suma);
didziausias(nr);
Writeln(Rf,max)
writeln(Rf,nr);
end.

Iš anksto ačiū už pagalbą.

O tai kokia klaida?

Tokia, kad čia jovalas o ne programa. Dedami duomenys į masyvo tas pačias vietas, po to procedūros kviečiasi kintamuosius kurie vėliau iš naujo aprašomi, nėra failo išvedimo kintamojo, procedūroj "didžiausias" naudojamas nežinomas kintamasis "taskai".

Tokia, kad čia jovalas o ne programa. Dedami duomenys į masyvo tas pačias vietas, po to procedūros kviečiasi kintamuosius kurie vėliau iš naujo aprašomi, nėra failo išvedimo kintamojo, procedūroj "didžiausias" naudojamas nežinomas kintamasis "taskai".

Jei žinote, kaip teisingai padaryti, kad programa veiktų, tai padėkit, jeigu tokie protingi. Iš anksto ačiū už pagalbą.