Склавиатуры вводятся две даты. выдать сообщения "правильно", если первая введённая дата предшествует второй, и "неправильно", если наоборот.

Var d1,m1,y1,d2,m2,y2:integer;
begin
write('1-я дата: ');
readln(d1,m1,y1);
write('2-я дата: ');
readln(d2,m2,y2);
if (y1<y2)or(y1=y2)and(m1<m2)or(y1=y2)and(m1=m2)and(d1<d2)
  then writeln('правильно')
  else writeln('неправильно');
end.

Пример:
1-я дата: 12 2 2017
2-я дата: 4 3 2017
правильно

Перед нами репродукция картины художника-мариниста Ивана Константиновича Айвазовского под названием «Девятый вал». Это — одна из его самых известных картин. Изображен на ней темный, бушующий океан. Громадная волна с пенистым гребнем неумолимо надвигается на крохотный обломок мачты. Можно догадаться, что корабль потерпел крушение. Оставшиеся в живых люди судорожно вцепились в мокрое дерево. Их пятеро. Все наполовину в холодной воде. Они обессилены, испуганы, истощены неравной борьбой со стихией. А за первой волной встает вторая, еще более грозная. Лучи восходящего солнца пронизывают водную толщу, придавая ей желтоватый оттенок. Картина поражает обилием и сочностью красок. Зеленые, синие, фиолетовые, розовые — все оттенки смешались в кипении морской стихии. С огромным, непередаваемым мастерством художник противопоставляет величественный, слепой в своей ярости океан горстке людей, наделенных силой и мужеством. Они будут бороться до конца, хоть и кажутся хрупкими песчинками по сравнению с морем. Смотрим на картину и кажется, что вода непрерывно движется, изменяется. Представляя себя на месте этих затерянных в океане людей, понимаем, насколько бесконечен их подвиг. Это подвиг настоящих моряков. Их силе воли и духа позавидует каждый.Как необъятно величие разбушевавшейся морской стихии! Как велика и несокрушима ее сила! Лавина водного потока невероятной мощи готова смести все на своем пути. Она словно говорит нам, что для нее не существует преград, и подтверждает это всем своим устрашающе-прекрасным видом. Блики лунного света оживляют картину, придают ей оригинальность и даже, в какой-то мере, романтическое звучание. Ощущение глобальности усугубляется неповторимым огненным заревом, поглотившим все небо и бросающим отблески на гребни вздыбленных волн. Пылающее ярко-красными всплесками где-то на горизонте, оно слегка затихает лишь высоко в небесах.В центре этой бушующей стихии оказалась группа людей. На обломках потерпевшего крушение корабля они отчаянно сражаются с волнами, словно бросая вызов всесокрушающей стихии. На что надеются эти люди? Откуда ждут Может, столкнувшись с бедствием, они не теряют присутствия духа и, сплотившись перед лицом общей опасности, стараются выжить в необъятных просторах бушующей бездны. Именно в этом и состоит мужество человека, стремящегося, несмотря ни на что, преодолевая любые преграды, добиться своей цели, выжить во что бы то ни стало. Вот как я понимаю идею художника, в чем вижу смысл его произведения. Великий мастер пейзажа, Айвазовский предстает перед нами и знатоком человеческих душ. Возвеличивая мощь морской стихии, он, вместе с тем, открывает перед нами героизм и отвагу людей, столкнувшихся с этой мощью и не устрашившихся ее. Очевидно, то, с каким мастерством художнику удается передать все подробности природных явлений и оттенки человеческих чувств, определяется опытом самого автора. Много путешествуя, будучи очевидцем различных событий, в том числе подвигов моряков Черноморского флота, Айвазовский искусно отобразил все впечатления в своих картинах. Это подтверждают такие его работы, как «Чесменский бой», «Черное море» и многие другие. Но картина «Девятый вал» является, на мой взгляд, одним из самых величественных и впечатляющих произведений художника.

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
  var k:=0;
  for var i:=0 to a.Length-1 do
    if a[i]>7 then begin a[i]:=7; Inc(k) end;
  a.Println;
  Writeln('Количество замен равно ',k);
  // если нужно общее количество семерок, замените
  // предыдущую строку следующей:
  // Writeln('Количество семерок равно ',a.Where(x->x=7).Count);
end.

Тестовое решение
n= 15
10 -11 14 12 -9 17 -4 11 -20 14 5 5 -3 -1 -2
7 -11 7 7 -9 7 -4 7 -20 7 5 5 -3 -1 -2
Количество замен равно 6

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a:=ArrRandom(20,-5,8); a.Println;
  var b:=a.Where(x->x<>0).ToArray; b.Println;
  Writeln('Количество нулей равно ',20-b.Count);
end.

Тестовое решение
-4 0 -5 -1 7 3 6 7 7 0 5 -2 -5 -2 7 0 3 1 7 3
-4 -5 -1 7 3 6 7 7 5 -2 -5 -2 7 3 1 7 3
Количество нулей равно 3