Помогите пожалуйста с задачей (Pascal)

[Pavel!!]

Дана непустая последовательноть целых чисел, оканчивающаяся числом -1. Определить, есть ли в последовательности хотя бы одно целое чило, кратное семи? В случае положительного ответа апределить порядковый номер первого из них.

Помоготите плиз , завтра задачу уже сдавать надо..

[Sazary]

Сначала создаем массив и последний элемент делаем равным -1.

uses crt;
const n = 15;
var
a : array[1..100] of integer;
i : integer;
begin
clrscr;
{ - генерация массива - }
randomize;
for i:=1 to n do
  begin
  a[i] := random(70);
  write(a[i]:4);
  end;
a[n+1] := -1;
writeln;
writeln('--------');
{------------}
i := 1;
while a[i] <> -1 do
  begin
  if a[i] mod 7 =0 then
   begin
   writeln('element nomer ',i,' (',a[i],') kraten 7');
   break;
   end;
  inc(i);
  end;
if i = n+1 then writeln('Net takih elementov');

readln;
end.

[Sazary]

Другой вариант. Числа проверяются сразу при вводе.

uses crt;
var
i,a : integer;
begin
clrscr;
i := 1;
a := 0;
writeln('Vvodite chisla:');
repeat
readln(a);
if a<>-1 then
 if a mod 7 = 0 then
  begin
  writeln('Chislo nomer ',i,' (',a,') kratno 7');
  break;
  end;
inc(i);
until a=-1;

readln;
end.

[Pavel!!]

Большое спасибо!))) выручили))