Ответ:

после else нет ;, а так не знаю, чекни ;

Так как вы не скинули условие я попытался его сам додумтаь исправить программу, у вас нашел еще несколько ошибок

Программа:

program pr1;

var a, m, n: real;

begin

writeln ('Введите количество минут трека m=');

read (m);

m:=m*60;

writeln('Введите количество секунд трека n=');

read (n);

if n>=60 then writeln('ошибка') else begin n:=16*n;

m:=16*m; end;

if m+n>=6144 then begin a:=(m+n)- 6144; writeln (' не хватает ', a , ' килобайт'); end

else writeln (' композиция поместится');

end.