Помогите совместить вместе 2 программи

[артем2]

var
i:integer;
s:string;

begin
readln(i);
for i:=1 to i do
readln(s);
write(s[length(s)]);
end.

------------------------------------
var
a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 5 do
read(a[i]);
if a[1]=a[3] then writeln('true')
else writeln('false');
end.

[digitalis]

Как нефиг нафиг:

var
i:integer;
s:string;
a:array[1..10] of integer;

begin
readln(i);
for i:=1 to i do
readln(s);
write(s[length(s)]);

for i:=1 to 5 do
read(a[i]);
if a[1]=a[3] then writeln('true')
else writeln('false');

end.

[digitalis]

< телепатический прием >
Да пожалуйста. Обращайся ежели что.