Пропускает Readln(<string>)

[Serge_Bliznykov]

замените
read(diya);
на

Readln(diya)

[Stilet]

Старые грабли.
Это что?:

read(diya);

read годится для чтения из файла. При чтении с консоли он игнорирует нажатие Энтера, он его оставляет в буфере, так что последующие read/readln этот энтер воспринимают, и по факту вместо ожидания ввода думаю что ты ввел пустую строку.
Давай меняй везде read на readln где идет ввод с консоли.