Дан файл целых чисел.Найти сумму компонент с четным значением и записать в новый файл те из них,значения которых превыша

{$I-}
program laba19;

procedure GetContent (var a : array of integer; var num : integer);
var
f : text;
i : integer;
begin
assign (f, 'laba19.txt');
reset (f);
if ioresult <> 0 then begin
writeln ('Ошибка открытия файла');
halt (-1);
end else begin
readln (f, num);
for i := 1 to num do
read (f, a [i]);
readln (f);
close (f);
end;
end;

procedure PrintArray (a : array of integer; num : integer);
var
i : integer;
begin
for i := 1 to num do
write (a [i], ' ');
writeln;
end;

function GetEvenSum (a : array of integer; num : integer) : integer;
var
i, sum : integer;
begin
sum := 0;
for i := 1 to num do
if not odd (a [i]) then
sum := sum + a [i];
GetEvenSum := sum;
end;

procedure GetElems (a : array of integer; num : integer);
var
f : text;
i : integer;
begin
assign (f, 'laba19.out');
rewrite (f);
if ioresult <> 0 then begin
writeln ('Ошибка создания файла');
halt (-1);
end else begin
for i := 1 to num do
if a [i] > 4 then
write (f, a [i], ' ');
close (f);
end;
end;

var
a : array [1..100] of integer;
i, num, sum : integer;

begin
GetContent (a, num);
PrintArray (a, num);
sum := GetEvenSum (a, num);
writeln ('Сумма четных элементов массива: ', sum);
GetElems (a, num);
end.

чего вопрос то не дописан?!?!