помогите найти ошибку в программе в Pascal

Евгений Абаев

var text:string;
begin
begin
write('название файла: ');
read(text);

  end;

var a,b,c,e,f,dat:integer;
begin
write(' число: ');
read(a);
if a<=31 then
begin
b:=a;

    end;
    begin
  write(' месяц: ');
  readln(c);
    end;
    begin
  write('год ');
  read(e);
  end;
  if e<=2016 then
   begin
     f:=e;

   end;

end;
var t:string;
begin
writeln('введите текст');
readln(t);

end;
    end.

    Почему то не проходит последняя операция. Программа выводит на экран "введите текст" и заканчивается. Не даёт ввести текст
Евгений Абаев около 1 года назадСпасибо 0
2 чел.