Определить, из каких простых неповторяющихся чисел состоит четное число

function Simple (var n:longint):longint;
var i:longint;
begin
 for i:=2 to n div 2 do
  if n mod i = 0 then begin
   Simple:=i;
   Exit;
  end;
 Simple:=0;
end;

function goldbah1 (n:longint,var n1,n2:longint):integer;
begin
 for n1:=n div 2 to n do if (Simple(n1)=0) and (n1!= n div 2) then begin
  n2:=n-n1; goldbah1:=1; exit;
 end;
 goldbah1:=0;
}

if goldbah1(n,n1,n2)=1 then writeln ('n1=',n1,' n2=',n2)
else writeln ('нет решения');

function Simple (var n:longint):longint;
var i:longint;
begin
 for i:=2 to n div 2 do
  if n mod i = 0 then begin
   Simple:=i;
   Exit;
  end;
 Simple:=0;
end;
 
function goldbah1 (n:longint;var n1,n2:longint):integer;
begin
 n1:=n div 2;
 while n1<=n do begin
  if Simple(n1)=0 then begin
   n2:=n-n1; goldbah1:=1; exit;
  end;
  n1:=n1+1;
 end;
 goldbah1:=0;
end;
 
var n,n1,n2:longint;
begin
 write ('Введите четное n>3: '); readln (n);
 if (n<4) or (n mod 2<>0) then begin
  write ('неверное число');
  readln;
 end;
 if goldbah1(n,n1,n2)=1 then writeln ('n1=',n1,' n2=',n2)
 else writeln ('нет решения');
 readln;
end.