Zadnko z tablica ośmioelementową PASCAL

[Dargi]

Napisz program, który wczytuje liczby całkowite do tablicy ośmioelementowej, a wypisuje na ekran indeks elementu z tablicy, którego wartość wynosi zero. Natomiast jeśli nie ma takiego elementu, wypisuje komunikat 'Brak elementu zerowego'

Nawet troche kumam tylko nie kumam motywu z tym indeksem ;P

[spajder]

Kod: Zaznacz cały

type tablica=array 1..8 of integer;

procedure wczytaj(var t:tablica);
 var i:byte;
 begin
  for i:=1 to 8
   begin
   Write("Podaj ",i"-ty element tablicy");
   ReadLn(t[i]);
  end;

procedure znajdz(var t:tablica,l:integer);
 var i:byte;
       znacznik:boolean;
 begin
  znacznik:=false;
  for i:=1 to 8 do
    if t[i]=l then begin
     znacznik:=true;
     WriteLn("Znalezniono element pod indexem o numerze ",i);
    end;
  end;
 if not znacznik then WriteLn("Elementu nie znalezniono");
 end;

var t:tablica;

begin
 wczytaj(t);
 znajdz(t,0);
end.

mogą być drobne błędy, np. literowe, bo nie mam przy sobie kompilatora.

[Dargi]

Troszke błędów ale próbuje sobie poradzić