для начала это не циклическая программа..почитайте про циклы сначало
http://school87.kubannet.ru/pascal/5.html

t:=1;
while (k<=m) do


вообще не понятно к чему обе строчки, притом нигде не фиксируется чему равна переменная М, а Т не может равняться 1