Введите 3 числа с клавиатуры и выведите в левом верхнем углу экрана четные из них

uses crt;
var a:array[1..3] of integer;
    i: integer;
begin
     readln(a[1],a[2],a[3]);
    clrscr;                   {очистка экрана}
    gotoxy (1,1);
    textcolor (1);     {цвет символов выбираем синий}
    for i:=1 to 3 do
    begin
         if(a[i] mod 2)=0
         then write(a[i]:5);
    end;
    gotoxy (60,25);
    textcolor (4);       {цвет символов выбираем красный}
    for i:=1 to 3 do
    begin
         if(a[i] mod 2)<>0
         then write(a[i]:5);
    end;
end.

uses crt;
var a:array[1..3] of integer;
    s1,s2:string;
    i: integer;
begin
writeln('Введите 3 целых числа');
readln(a[1],a[2],a[3]);
clrscr;                   {очистка экрана}
s1:='';
s2:='';
for i:=1 to 3 do
if a[i] mod 2=0 then s1:=s1+inttostr(a[i])+' '
else s2:=s2+' '+inttostr(a[i]);
gotoxy (1,1);
textcolor (1);     {цвет символов выбираем синий}
write(s1);
gotoxy (80-length(s2),25);
textcolor (4);       {цвет символов выбираем красный}
write(s2);
end.