Вывести название месяца по введенной дате

 date : tdate;//а это?
begin
   writeln('vvedite datu mm/dd/gg');
   readln(s);
 
   date := StrToDate(s, 'MM/DD/YY', '/');//и это?
   writeln(Format('%s %d %d',
                  [month[MonthOf(date)], DayOf(date), YearOf(Date)]));//и это?

const mes:array[1..12] of string=('yanvar','fevral','mart','aprel','may','iun',
                                  'iul','avgust','sentyabr','oktyabr','noyabr','decabr');
var s,d,g,c1,c2:string;
    m,c:integer;
begin
writeln('vvedite datu mm/dd/gg');
readln(s);
val(copy(s,1,2),m,c);
d:=copy(s,4,2);
g:=copy(s,7,2);
//val(copy(s,4,2),d,c);  если нужно перевести в число
//val(copy(s,7,2),g,c);
write(mes[m],' ',d,' 19',g);
readln;
end.

var s3:array [1..50] of string;
m2,k,i,c2,m3,d2,g2,s2,m61:integer;
d3,g3:string;
L1:boolean;
mes:array [1..12] of string=('yanvar','fevral','mart','aprel','may','iun',
                                  'iul','avgust','sentyabr','oktyabr','noyabr','decabr');
procedure convert (m,d1,g1,s1,c:integer; var s,d,g:string; L:boolean);
begin
val(copy(s,1,2),m,c);
d:=copy(s,4,2);
g:=copy(s,7,2);
val(d,d1,c);
val(g,g1,c);
s1:=length(s);
if (m in [4,6,9,11]) and (d1=31) then
L:=false
else
  begin
  if (m=2) and (g1 mod 4<>0) and (d1=29) then
  L:=false
  else
    begin
    if (m>12) or (s1<>8) or (d1>31) then
    L:=false
    else
    L:=true;
    end;
  end;
end;
begin
 writeln('vvedite kolichestvo dat');
 readln(k);
 for i:=1 to k do
 begin
  writeln('vvedite datu mm/dd/gg');
readln(s3[i]);
 convert(m2,d2,g2,s2,c2,s3[i],d3,g3,L1);
 val(copy(s3[i],1,2),m2,c2);
 if L1 then
 writeln(mes[m2],' ',d3,' 19',g3)
 else
 writeln('vvedena ne data');
 end;
readln;
end.