Массив. Паскаль.

[d_ovod]

Здравствуйте! Посмотрите пожалуйста, я правильно прописал программу к задаче: Задан массив Х(N) N<=50. Отпечатать сначала положительные элементы массива Х и их количества, а затем отрицательные массивы Х и их количество.
program zadacha1;
const
N1=50;
type
mas1=array [1...N1] of integer;
var
A: mas1;
K,I,N: integer;
begin
write (' введите размер N= ');
read (N);
for I:=1 to N do
begin
write (' A[' ,I, '] =');
read (A[ I ]);
end;
k:=0;
for I:=1 to N do
if A [ I ] > 0 then
begin
write (A [ I ]:4);
K:=K+1;
end;
writeln;
write(' кол-во положительных элементов-',К);
else
if A [ I ] < 0 then
begin
write (A [ I ]:4);
K:=K+1;
end;
writeln;
write(' кол-во положительных элементов-',К);
end.

[jabbson]

1.

mas1=array [1...N1] of integer;

лишняя точка в размерности, должно быть две.

2.

else

к чему относится этот "элс"?

3. Даже если К и K выглядят одинаково, это еще ничего не означает и в коде нельзя этого забывать. Переменные - только англ. буквы.

4.

writeln;
write(' кол-во положительных элементов-',К);
else
if A [ I ] < 0 then
begin
write (A [ I ]:4);
K:=K+1;
end;
writeln;
write(' кол-во положительных элементов-',К);

оба раза положительных элементов?

5. Код нужно форматировать и оформлять - так его гораздо легче читать.
Например так:

Program zadacha1;
uses crt;

Const
   N1 =  50;

Type
   mas1 =  array [1..N1] Of integer;

Var
   A:  mas1;
   K,I,N:  integer;

BEGIN

   clrscr;
   write ('Введите размер N = '); read (N);

   For I:=1 To N Do
      Begin
         write (' A[' ,I, '] = ');
         readln (A[I]);
      End;

   k := 0;
   writeln;
   write('Положительные элементы: ');

   For I:=1 To N Do
      If A [I] > 0 Then
         Begin
            write (A [I], ' ');
            inc(K);
         End;
   writeln; writeln('Kол-во положительных элементов: ',K);

   k:=0;
   writeln;
   write('Отрицательные элементы: ');

   For I:=1 To N Do
      If A [I] < 0 Then
         Begin
            write (A [I], ' ');
            inc(K);
         End;
   writeln; writeln('Kол-во отрицательных элементов: ',K);
   readln;
END.