Вывести на экран первую половину слова, состоящего из четного числа букв

program z_20;
uses crt;
var st,s1:string;
l1,i,l:integer;
begin
clrscr;
writeln ('vvedite slovo sostoiashee iz chisla bukv');
readln (st);
l:=length(st);
i:=1;
s1:=copy(st,i,4);
writeln ('pervaia polovina= ',s1);
readln;
end.

program z_20;
uses crt;
var st,s1:string;
l1,i,l:integer;
 
begin
clrscr;
writeln ('vvedite slovo sostoiashee iz chisla bukv');
readln (st);
l:=length(st);
if round(l/2)=0 then
begin
l1:=trunc(l1/2);
 i:=1;
s1:=copy(st,i,l1);
writeln ('pervaia polovina= ',s1);
readln;
end;
 if round(l/2)<>0 then
writeln(' vvedeno nechtnoe chislo bykv');
readln;
end.

program z_20;
uses crt;
var x:byte;
a:string;
begin
repeat
clrscr;
writeln ('vvedite slovo sostoiashee iz chisla bukv');
readln (a);
x:=length(a);
until (x mod 2=0);
x:=x div 2;
write (copy(a,1,x));
readln;
end.