таблица

uses crt;
const n=10;
      rb=['А'..'п','р'..'ё'];{русские буквы}
type date=record {тип дата}
          gd:2000..2004;
          ms:1..12;
          dn:1..31;
          end;
     prod=record {тип запись о продуктах}
          naz:string[20];
          dt:date;
          cen:real;
          end;
var m:array[1..10] of prod;{массив записей}
    i,j,k:byte;
begin
clrscr;
writeln('Введите данные о ',n,' продуктах:');
for i:=1 to n do
 begin
  writeln('Продукт ',i);
  with m[i] do
   begin
    repeat
    write(' Название: ');readln(naz);
    k:=0;
    for j:=1 to length(naz) do
    if not (naz[j] in rb) then {проверяем на русские буквы}
     begin
      k:=1;
      break;
     end;
    until k=0;
    writeln(' Дата изготовления (месяц,день)');
    repeat
    write(' Год (2000-2004):');readln(dt.gd);
    until (dt.gd>=2000)and(dt.gd<=2004);{проверяем год}
    repeat
    write('  Месяц (1-12): ');readln(dt.ms);
    until dt.ms in [1..12];{проверяем месяц}
    repeat
    k:=0;
    write('  День: ');readln(dt.dn);
    if ((dt.ms in [1,3,5,7,8,10,12])and not(dt.dn in [1..31])) {проверяем если длинный месяц}
    or ((dt.ms in [4,6,9,11])and not(dt.dn in [1..30])){если короткий месяц}
    or ((dt.ms=2)and(dt.gd mod 4=0)and not(dt.dn in [1..29])){февраль високосный}
    or ((dt.ms=2)and(dt.gd mod 4<>0)and not(dt.dn in [1..28]))then k:=1;{февраль невисокосный}
    until k=0;
    write(' Закупочная цена: ');readln(cen);
   end;
 end;
clrscr;
writeln('      Продукты, выпущенные в июле 2004 года:');
writeln('---------------------------------------------------');
writeln('|              |   Дата изготовления  |           |');
writeln('|   Название   |----------------------| Зак. цена |');
writeln('|              |  Год  | Месяц | День |           |');
writeln('---------------------------------------------------');
k:=0;
for i:=1 to n do
if (m[i].dt.gd=2004)and(m[i].dt.ms=7)then{выбираем из саиска где год=2004 и месяц=июль(7)}
   begin
    k:=1;
    gotoXY(1,whereY);write('| ',m[i].naz);
    gotoXY(16,whereY);write('| ',m[i].dt.gd);
    gotoXY(24,whereY);write('|   ',m[i].dt.ms);
    gotoXY(32,whereY);write('|  ',m[i].dt.dn);
    gotoXY(39,whereY);write('|',m[i].cen:8:2);
    gotoXY(51,whereY);write('|');
    writeln;
  end;
writeln('---------------------------------------------------');
if k=0 then write('Продуктов, выпущенных в июле 2004 года нет!');
readln
end.