Дан массив А(М). Из элементов А, больших 220, сформировать массив Б

Program zadanie1;
CONST M=10;
VAR A:array [1..M]of INTEGER;
B: array[1..M] of INTEGER;
k,i: integer;
                                          BEGIN
               writeln('  ***ввод  массива A ***');                  
for i:=1 to M do    begin write ('A[',i,']= '); readln (A[i]); end;
 
 k:=0;  for i:=1 to M do  IF  A[i]>220 THEN begin k:=k+1;  B[K]:=A[i]; end;       
               writeln('*** вывод  массива B  ***');
for i:=1 to k do writeln(' B[',i,']= ',B[i]) ;
                                           END.

Program zadanie1;
CONST
  M=10;
type
  arr=array [1..M]of INTEGER;
VAR
  A,b:arr;
  k,i: integer;
 
procedure EnterArray(var x:arr);
begin
  for i:=1 to M do
    begin
      write ('A[',i,']= ');
      readln (x[i]);
    end;
end;
 
procedure CreateArray(x:arr;  var y:arr; var k:integer);
begin
  k:=0;
  for i:=1 to M do
    IF  x[i]>220 THEN
      begin
        k:=k+1;
        y[K]:=x[i];
      end;
end;
 
BEGIN
  writeln('  ***ввод  массива A ***');
  enterarray(a);
  writeln('*** вывод  массива B  ***');
  createArray(a,b,k);
  for i:=1 to k do
    writeln(' B[',i,']= ',B[i]) ;
END.

var
  i:integer;