Pascal/Turbo Pascal - Necesito ayuda hoy mismo T.T

Tengo que hacer un programa en el cual, a parte de otras acciones, tengo que mostrar por pantalla TRUE/FALSE en función de que el penúltimo digito sea par i en función de que tenga exactamente 4 digitos.

Aqui os dejo mi progama con todas las instrucciones que he hecho:

program s5;

uses crt, sysutils;

var
s1:string; s2:string;
n1,n2:real;
n3, n4:integer;
T1:TDateTime;

begin

write ('Entra s1:'); readln(s1);
writeln((s1[1])<>(upcase(s1[1])));


write ('Entra s2:'); readln(s2);
writeln ((upcase(s2[length(s2)]) = 'A')
or (upcase(s2[length(s2)]) = 'E')
or (upcase(s2[length(s2)]) = 'I')
or (upcase(s2[length(s2)]) = 'O')
or (upcase(s2[length(s2)]) = 'U'));


writeln ((pos((upcase((s1[1]))),upcase (s2))>0)
and (pos((upcase((s1[2]))),upcase (s2))>0)
and (pos((upcase((s1[3]))),upcase (s2))>0)
and (pos((upcase((s1[1]))),upcase (s2)) < (pos((upcase((s1[2]))),upcase (s2))))
and (pos((upcase((s1[2]))),s2) < (pos((upcase((s1[3]))),upcase (s2)))));


write ('Entra n1:'); readln(n1);
STR(n1:0:0, s1);
STR(3, s2);
writeln ((s1[length (s1)])=s2);


write ('Entra n2:'); readln(n2);
STR(n2:0:0, s1);

//writeln ((((lenght (s1))) = 4));

s2:=(s1[3]);
VAL(s2,n2,n3);

writeln ((((Round(n2)) mod 2) = 0));

T1:=now;
writeln( FormatDateTime('DD-MM-YYYY',T1));
writeln( FormatDateTime('dddd',T1+1));

readkey;

end.


Gracias por la ayuda