Найти ошибку в паботе с массивом

[vasya 684]

я учусь работать с массивами, вот решил сделать первую программу, вроде все правильно, но в 13 строке пишет ошибка, помогите

program test;
const
 a : array[1..12] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
 b : array[1..12] of string[10] = ('января', 'февраля', 'марта', 'апреля', 'мая', 'июня', 'июля', 'августа', 'сентября', 'октября', 'ноября', 'декабря');
var
 day, month, year : integer;
 ok : boolean;
begin
 writeLn('Введите дату(число, номер месяца, год) : ');
 readLn(day, month, year);
if (day <= 0) or (month <= 0) or (year <= 0) or (month > 12) then
 ok := false;
 if ok := true then
   writeLn(day, ' ', b[month], ' ', year, ' года')
  else
writeLn('Дата некорректна!');
end.

[Poma][a]

if ok := true

Просто if ok then

[vasya 684]

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

[BDA]

program test;

const
  a: array[1..12] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
  b: array[1..12] of string[10] = ('января', 'февраля', 'марта', 'апреля', 'мая', 'июня', 'июля', 'августа', 'сентября', 'октября', 'ноября', 'декабря');

var
  day, month, year: integer;

begin
  writeLn('Введите дату (число, номер месяца, год) : ');
  readLn(day, month, year);
  if (day <= 0) or (month <= 0) or (year <= 0) or (month > 12) then
    writeLn('Дата некорректна!')
  else
    writeLn(day, ' ', b[month], ' ', year, ' года');
  readln;
end.

Но условий проверки явно маловато.
День не должен превышать количества дней в месяце (не забыть про високосный год).

[vasya 684]

program test;
const
 a : array[1..12] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
 b : array[1..12] of string[10] = ('января', 'февраля', 'марта', 'апреля', 'мая', 'июня', 'июля', 'августа', 'сентября', 'октября', 'ноября', 'декабря');
var
 day, month, year : integer;
begin
 writeLn('Введите дату(число, номер месяца, год) : ');
 readLn(day, month, year);
{if (year mod 4 = 0) and (month = 2) then
a[2] := 29;}
if (day <= 0) or (month <= 0) or (year <= 0) or (month > 12) or (day > a[month]) then
 writeLn('Дата некорректна!')
else
   writeLn(day, ' ', b[month], ' ', year, ' года');
   readLn;
end.]

вот так пойдет, почему то делаю проверку про високосный год, пишет что нельзя изменять константу как исправить

[BDA]

program test;

const
  a: array[1..12] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
  b: array[1..12] of string[10] = ('января', 'февраля', 'марта', 'апреля', 'мая', 'июня', 'июля', 'августа', 'сентября', 'октября', 'ноября', 'декабря');

var
  day, month, year, z: integer;

begin
  writeLn('Введите дату (число, номер месяца, год) : ');
  readLn(day, month, year);
  z := ord((month = 2) and ((year mod 4 = 0) and (year mod 100 <> 0) or (year mod 400 = 0)));
  if (day <= 0) or (month <= 0) or (year <= 0) or (month > 12) or (day > a[month] + z) then
    writeLn('Дата некорректна!')
  else
    writeLn(day, ' ', b[month], ' ', year, ' года');
  readln;
end.