Программа, определяющая время до возможности заключить брак

program t_2;
var a,b:string; c,z,x:integer;
begin
writeln (' Привет, как тебя зовут? ');
readln (a);
writeln (' Отлично, скоко тебе лет? ');
readln (с);
writeln (' Хорошо, где вы находитесь? ');
readln (b);
if (c=>18) 
then writeln (' Тебе'с;' лет и через 0 года ты сможешь сочетаться браком с любимым человеком ')
esle 
begin
z:=18-c;
writeln (' Тебе' с; ' лет и через' z; 'года ты сможешь сочетаться браком с любимым человеком ')
end;
end.

var
  a: string;
  b: string;
  c: integer;
  z: integer;
  x: integer;
begin
  writeln (' Привет, как тебя зовут? ');
  readln (a);
  writeln (' Отлично, скоко тебе лет? ');
  readln (c);
  writeln (' Хорошо, где вы находитесь? ');
  readln (b);
  if (c=>18) 
    then
      writeln (' Тебе',c,' лет и через 0 лет ты сможешь сочетаться браком с любимым человеком ')
    else 
      begin
        z:=18-c;
        writeln (' Тебе', c, ' лет и через', z, 'года ты сможешь сочетаться браком с любимым человеком ');
      end;
end.

 if c>=18

type
  Men = class
    private
      Name_: string;
      City_: string;
      Old_: integer;
      const vozr_=18;
    public property Name: string read Name_ Write Name_;
    public property City: string read City_ Write City_;  
    public property Old: integer read Old_ Write Old_;
    public procedure New_();
      var
        n,c: string;
        o: integer;
      begin
        Writeln('Введите ваше имя:');
        readln(n);
        self.Name:= n;
        Writeln('Введите ваш город рождения:');
        readln(c);
        self.City:= c;
        Writeln('Введите ваш год рождения');
        readln(o);
        self.Old:= o;
      end;
    public procedure Out_;
    begin
      if System.DateTime.Now.Year-self.vozr_ - self.Old > 0
        then
          Writeln('Можешь жениться')
        else
          Writeln('Нельзя жениться');
    end;
end;
var Z: Men;
begin
  Z:= Men.Create;
  Z.New_;
  Z.Out_;
end.

program t_2;
var a,b:string; c,z,x:integer;
begin
writeln (' Привет, как тебя зовут? ');
readln (a);
writeln (' Отлично, скоко тебе лет? ');
readln (c);
writeln (' Хорошо, где вы находитесь? ');
readln (b);
if c>=18 
then writeln (' Тебе '+ c +' лет и через 0 года ты сможешь сочетаться браком с любимым человеком ')
else 
begin
z:=18-c;
writeln (' Тебе ' + c + ' лет и через ' + z + ' года ты сможешь сочетаться браком с любимым человеком ')
end;
end.