Pascal programkód hiba, valaki ráér?

Nem kell megijedni, nem kell átnézni a forráskódot, csak arra lennék kíváncsi, hogy a j:=j+t[i].p; sor miért nem működik. A program felépül, aztán Sigsevvel leáll emiatt a sor miatt.

Illetve, hogy ha egy stringet keresünk iffel, akkor ha csak a string első pár betűjét írjuk be, akkor is megadja a találatot?

program project1;

type

q=record

p:integer;

m:integer;

s:string[50]

end;

tomb=array[1..1000] of q;

var

t:tomb;

i,j,k,l,w,d,a,b:integer;

f:text;

begin

assign(f,'musor.txt');

reset(f);

readln(f,d);

for i:=1 to d do begin

readln(f,t[i].p,t[i].m,t[i].s);

end;

close(f);

l:=0;

k:=0;

w:=0;

j:=0;

i:=1;

repeat

j:=j+t[i].p;

k:=k+t[i].m;

inc(i);

until t[a].s[1]='Eric';

for a:=1 to d do begin

if t[a].s[1]='Eric' then b:=a;

end;

for a:=1 to b do begin

w:=w+t[a].p;

l:=l+t[a].m;

end;

writeln(((w*60+l)-(j*60+k)) div 3600,' ora ', (((w*60+l)-(j*60+k)) mod 3600) div 60, ' perc ',((((w*60+l)-(j*60+k)) mod 3600) mod 60));

readkey;

end.

Ha valaki esetleg kipróbálná (reménykedek), annak itt a musor.txt tartalma:

4

4 23 Deep Purple:Bad Attitude

3 56 Eric Clapton:Hold Me Lord

2 12 Frank Zappa:Pick Me, I'm Clean

6 43 Eric Clapton:Last Fair Deal Gone Down

txt vege

A programnak azt kellene kiírnia, hogy: 0 ora 12 perc 51 masodperc

Feladat: első szám a dalok száma, második az időtartamuk percben, harmadik adat a szám címe. Feladat: mennyi idő telt el az első Eric Clapton szám eleje és az utolsó Eric Clapton szám vége között.

Előre is köszi a segítséget.