Массивы

program kk;
uses crt;
var m1,m2:array[1...100]of integer;
     k,i,n:integer;
 
begin
 clrscr;
 k:=0;
 write('Размерность исходного массива: ');
 readln(n);
 writeln('Массив:');
 for i:=1 to n do read(m1[i]);
 
 for i:=1 to n do
 if m1[i] mod 2=0 then
 begin
  inc(k);
  m2[k]:=m1[i];
 end;
 
 if k=0 then writeln('В массиве нет чётных элементов')
 else for i:=1 to k do write(m2[i],' ');
 readln;
end.

program Project2;
 
type vector = array[1..1000] of integer;
var 
    a,b:vector;
    n,k,i:integer;
 sum,pro : real;
procedure ShowArray(a:vector;n:integer);
var i:integer;
begin
    for i:=1 to n do 
  begin
    write(a[i]:4);
 end;
 writeln;
end;
procedure InitArray(var a:vector;n:integer);
var i:integer;
begin
for i:=1 to n do 
  begin
     write('a[',i,']=');
     readln(a[i]);  
 end;
end;
 
begin
write('n=');readln(n);
 InitArray(a,n);
 ShowArray(a,n);
 k := 0;
 for i:=1 to n do
 begin
    if not odd(a[i]) then
    begin
     inc(k);
        b[k] := a[i];
    end;
 end;
 if (k = 0) then
  writeln('Net ciotnih cisel')
  else
  ShowArray(b,k);
 readln;
end.