Массивы

[GreenLaym]

Вывести номера второго,четвертого и пятого положительных элементов.
Помогите пожалуйста.

[ZX Spectrum-128]

Заполнение массива покажете? (с)

[GreenLaym]

Program laym;
var a:array[1..10] of integer;
    i,n,k:integer;
begin
   write('Размер массив n=');
    readln(n);
  until n in [1..10];
  writeln('Массив :');
   for i:=1 to n do
    begin
     a[i]:=-5+random(20);
     write(a[i]:4);
    end;

[ZX Spectrum-128]

Program laym;
var
  a:array[1..100] of integer;
  i,n,k:integer;
begin
  repeat
    write('Размер массив n=');
    readln(n);
  until n in [1..100];
  writeln('Массив :');
  for i:=1 to n do
    begin
      a[i]:=-10+random(20);
      write(a[i]:4);
    end;
  k:=0;
  writeln;
  for i:=1 to n do
    begin
      if a[i]>0 then
        begin
        inc(k);
        if (k=2) or (k=4) or (k=5) then
          writeln(a[i],' это ',k,'-й положительный элемент');
        end;
    end;

  readln;
end.

[GreenLaym]

Спасибо большое