Type student=record
familia:string;
nomer:byte;
yspevaemosti:array[1..5] of integer;
end;
В общем, проверь ссылки ярлыков (точно ли ведут на нужные программы) и наличие необходимого (.NET, DirectX (хотя не вижу связь, но не повредит)), ну и, конечно, систему антивирем (Kaspersky Virus Removal Tool самое оно)
Насчет 8,все же,посмотрите и подумайте.
Решение задачи представлено во вложенном файле.