Вообще ошибка тут очень простая, это k: integer;
так как k:=1.45;
1.45 это число с точкой, что не является типом integer
нужно так:
program a1 ;
var k : real;
begin
k:=1.45;
writeln ('k=', k)
end.
Я поставил правильный тип и теперь программа будет работать