Удалить первый положительный элемент больший заданного числа — Pascal(Паскаль)

program zadacha6;
uses crt;
type mass=array[1..50] of integer;

var a,x:mass;
    n,i,k,t:integer;

procedure massiv(var n:integer; var x:mass);
          begin
          write('vvedite koli4estvo elementov n=');
          readln(n);
          for i:=1 to n do
          begin
          x[i]:=-random(10)+7;
          write(x[i]:3);
          end;
          writeln;
          end;

procedure delete(n:integer; x:mass; var A:mass; var k,t:integer);
          begin
          write('Zadannoe chislo: ');
          readln(k);
          t:=-1;
          for i:=1 to n do
          if (A[i]>0) and (A[i]>k) then
          begin
          t:=i;
          break;
          end;
          if t=-1 then writeln('Net takih')
          else
          begin
          dec(n);
          for i:=t to n do
          A[i]:=A[i+1];
          end;
          writeln;
          for i:=1 to n do
          write(A[i]:3);
          end;

begin
clrscr;
randomize;
massiv(n,a);
delete(n,x,a,k,t);
readln;
end.