Срочно!!!!помогите пж по информатике 8 класс

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

1 задача

var a, b, c: integer;
begin
writeln ('Введите дату рождения Ани: ');
read (a);
writeln ('Введите дату рождения Оли: ');
read (b);
writeln ('Введите дату рождения Елены: ');
read (c);
if (alt;b) and (alt;c) and (blt;c) then
  writeln (Аня старшая, Оля средняя, Елена младшая);
if (alt;b) and (alt;c) and (clt;b) then
  writeln (Аня старшая, Елена средняя, Оля младшая);
if (blt;a) and (blt;c) and (alt;c) then
  writeln (Оля старшая, Аня средняя, Лена младшая);
if (blt;a) and (blt;c) and (clt;a) then
  writeln (Оля старшая, Елена средняя, Аня младшая);
if (clt;a) and (clt;b) and (blt;a) then
  writeln (Елена старшая, Оля средняя, Аня младшая);
if (clt;a) and (clt;b) and (alt;b) then
  writeln (Елена старшая, Аня средняя, Оля младшая)
end.


2 задачка

var a: integer;
begin
writeln ('Введите рост человека: ');
read (a);
if (agt;180) then
  writeln ('Высочайший')
else
  writeln ('НЕ ОЧЕНЬ Высочайший')
end.