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

uses crt;
var i,k,a:integer;
begin
clrscr;
writeln('Введите последовательность целых чисел, окончание ввода -1:');
k:=0;i:=0;
repeat
readln(a);
i:=i+1;
if a mod 7=0 then
 begin
  k:=i;
  writeln('В последовательности есть число, кратное 7.');
  write('порядковый номер=',k);
  break;
 end;
until (a=-1)or(k>0);
if k=0 then write('В последовательности нет чисел, кратных 7.');
readln
end.