Ну вопервых две одинаковых функции
Код:
procedure sumbal1(num1:word);
begin
if arotv [num1] =1 then vres:=vres+1;
end;
А во вторых весь проект усыпан ошибками не совпадения типов
То строку в число, то число в строку пихается
То из едита сразу же в число...