Вот так?)).................
Вот, держи :)
................................
Элементарно.Перед else не пишется ;
Попробуй добавить writeln
Проверь перед else должен быть ещё end(т.к подсистема)
1920бит=240байт=0,23Мбайт я точно не знаю но по моему так)