Помогите исправить код паскаль, нужно написать программу с защитой, заранее спасибо
вот код;
program Gddsf;
var a:integer;
s: string;
begin
writeln('введите возвраст'
readln(a);
write('введите имя'
read(s);
if (a>=18)and (a<=150) then write(s,' ,ты сможешь голосовать'
else
write (' ты не сможешь голосовать'
read(s);
else
if (a>0)and (a<160) then writes (s',ты еще не родился'
else
write ('ты уже мёртв'
end.
вот код;
program Gddsf;
var a:integer;
s: string;
begin
writeln('введите возвраст'
readln(a);
write('введите имя'
read(s);
if (a>=18)and (a<=150) then write(s,' ,ты сможешь голосовать'
else
write (' ты не сможешь голосовать'
read(s);
else
if (a>0)and (a<160) then writes (s',ты еще не родился'
else
write ('ты уже мёртв'
end.