Напишите программу на паскале, которая вводит и печатает массив из 10 целых чисел, вводит целое число к и выводит номер элемента массива, который равен числу к или выводит 0, если в массиве нет числа, равного к. 20

Program fantscrin;

 Var a: array [1..10] of integer;

     i,k,g:integer;

Begin

 for i:=1 to 10 do

   readln(a[i]);

 for i:=1 to 10 do

   write(a[i], '  ');

 writeln('');

 write('К = '); readln(k);

 g:=0;

 for i:=1 to 10 do

   if(a[i] = k) then g:=i;

 writeln(g);

End.