Помогите Пожалуйста

[AliMauitov]

Записать элементы массива Х в массив Y и определить их количеств

-1<=Xi<=1 pascal
подсказка:
Инициализировать два массива.
Сделать процедуру записи в любом цикле по i-му индексу. Использовать условие (x[i] >=-1) and (x[i] <= 1

[ZX Spectrum-128]

k:=0;
for i:=1 to n do
 if (x[i] >=-1) and (x[i] <= 1) then
  begin
   inc(k);
   y[k]:=x[i];
  end;  
writeln(k);

[AliMauitov]

program
var i,k,y,x;
 k:=0;
for i:=1 to n do
 if (x[i] >=-1) and (x[i] <= 1) then
  begin
   inc(k);
   y[k]:=x[i];
  end;  
writeln(k);
end.

Вот так будет?

[ZX Spectrum-128]

const
 n=10;
var
 i,k:integer;
 x,y:array [1..n] of integer;
begin
for i:=1 to n do
 readln(x[i]);
k:=0;
for i:=1 to n do
 if (x[i] >=-1) and (x[i] <= 1) then
  begin
   inc(k);
   y[k]:=x[i];
  end;  
writeln(k);
end.