Трябва да направя следната задача:. Да се състави главна програма за обработка на три масива В[10], С[20] и К[30], където данните са числа в интервала [-99 - 99]. Съответните подпрограми да извършват следните обработки: извеждане на условието на задачата и името на автора;

въвеждане на входните данни;

извеждане на входните данни;

да се cъcтaви пoдпpoгpaмa, кoятo cгъcтявa eднoмepния мacив, кaтo oтcтpaнявa oт нeгo вceки положителен и всеки нулев eлeмeнт.

Резултатите да се изведат на екрана;

Мислех че съм я направил,но се оказа че процедурата ми "Action" не прави нищо,уж съм казал ,ако е по-голямо или равно на нула да изважда едно(да го свие), а след това ако си разпечатам пак масива за да проверя дали наистина е така , излиза че нищо не е направено.

Всякаква помощ ще е от полза , че няма кой да питам.

   Program Zadacha_1;
  Uses Crt;
  const c=30;
  Type
  //  DoubleMasiv=Array[1..c,1..c] of Real;
    SingleMasiv=Array[1..c] of Real;
  Var
    //Mas1,Mas2,Mas3:DoubleMasiv;
    Mas1,Mas2,Mas3:SingleMasiv;
    I,K:Integer;


  Procedure Avtor;
    Begin
	  WriteLn('Sastavil programata:');
	  WriteLn('AZ ');
	  WriteLn('Fakultet: Gotvarstvo');
	  WriteLn;WriteLn;
    End;
  Procedure Uslovie;
    Begin
	  WriteLn('Obrabotka na tri masiva: B[10],C[20],K[30].');
	  WriteLn('Da se zgusti ednomerniq masiv - kato se ostranqt');
	  WriteLn('vseki polojitelen i vseki nulev element.');
	  WriteLn;WriteLn;
    End;
  Procedure InPut(Var M:SingleMasiv;K:Integer);
   Var I:Integer;
    Begin
	  WriteLn('Za masiva [',K,']');
	  WriteLn;
	  for I:=1 to K do
		  Begin
		    Write('Vavedi element [',I,'] -> ');
		    ReadLn(M[I]);
		    while ((M[I]<-99) or (M[I]>99)) do
			  Begin
			    Write('Nekorektno!Vavedi pak -> ');
			    ReadLn(M[I]);
			  End;
		  End;
    End;
  Procedure OutPut(M:SingleMasiv;K:Integer);
    Begin
	  WriteLn;
	  for I:=1 to K do

		    Write(M[I]:4:0);
		  WriteLn;

    End;
   procedure Action(M:SingleMasiv;K:Integer);
  Begin
     for I:=1 to K do
		  if (M[I]>0) Or (M[I]=0) then
		    begin
			  M[I] := M[K];
			  K := K - 1;
		    end;
            end;




  Begin
    ClrScr;
    Avtor;
    Uslovie;
    WriteLn('OBRABOTKA NA PARVIQ MASIV:');
    WriteLn;
    Write('Vavedi razmernost na masiva -> ');
    ReadLn(K);
    while ((K<0) or (K>10)) do
	  Begin
	    Write('Razmernostta da e do 10 na 10!vavedi pak -> ');
	    ReadLn(K);
	  End;
    InPut(Mas1,K);
    WriteLn('Vavedohte masiva:');
    OutPut(Mas1,K);
    Action(Mas1,K);
   // OutPut(Mas1,K);


    WriteLn;
    WriteLn;
    WriteLn;
    Write('Press Enter...');
    ReadLn;

    Clrscr;
    WriteLn('OBRABOTKA NA VTORIQ MASIV:');
    WriteLn;K:=0;
    Write('Vavedi razmernost na masiva -> ');
    ReadLn(K);
    while ((K<0) or (K>20)) do
	  Begin
	    Write('Razmernostta da e do 20 na 20! Vavedi pak -> ');
	    ReadLn(K);
	  End;
    InPut(Mas2,K);
    WriteLn('Vavedohte masiva:');
    OutPut(Mas2,K);
    Action(Mas2,K);
    WriteLn;
    Write('Press Enter...');
    ReadLn;

    ClrScr;
    WriteLn('OBRABOTKA NA TRETIQ MASIV:');
    WriteLn;K:=0;
    Write('Vavedi razmernost na masiva -> ');
    ReadLn(K);
    while ((K<0) or (K>30)) do
	  Begin
	    Write('Razmernostta da e do 30 na 30! Vavedi pak -> ');
	    ReadLn(K);
	  End;
    InPut(Mas3,K);
    WriteLn('Vavedohte masiva:');
    OutPut(Mas3,K);
    Action(Mas3,K);
    WriteLn;
    Write('Press Enter...');
    ReadLn;
 End.

Като за начало си забравил Var в декларацията на процедурата... И на масива и на K, за да може да знаеш колко елемента са останали.