N čísel,maximum, párny a nepárny rad (Zadanie 5)

program parneneparne; uses crt; var a,p,n: array [1..100] of integer; i,ipar,inep,x,max:integer;

BEGIN clrscr; writeln ('Zadaj kolko čísel budeš zadávať '); readln (x); writeln ('Začíname zadávať '); clrscr; ipar:=0; inep:=0; max:=0; for i:=1 to x do               BEGIN write ('Zadaj ',i,'. číslo: '); readln (a[i]); if (a[i] mod 2 = 0) then BEGIN ipar:=ipar+1; p[ipar]:=a[i]; END else BEGIN inep:=inep+1; n[inep]:=a[i]; END; if a[i]>max then max:=a[i]; END; clrscr; writeln ('Najväčšie zadané číslo je: ',max); writeln ('Počet párnych čísel je: ',ipar); for i:=1 to ipar do write (p[i],','); writeln; for i:=1 to inep do write (n[i],','); readln; END.