Полную отладку, если потребуется, сделаю завтра, а пока попробуйте начать с исправления явных ошибок:
1. Readln из второй снизу строки поставьте ПЕРЕД until (n=4);
2. halt(1), Begin, который в третьей снизу строке, и end;, который в четвертой снизу строке, уберите СОВСЕМ.