Turbo Pascal : найти ошибку

[ARAGON]

program P;
var
Plan, i, temp: integer;
Sdelano: array[1..12] of integer;
begin
readln(Plan);
temp := 0;
for i := 1 to 12 do begin
Readln(Sdelano[i]);
temp := temp + Sdelano[i];
end;
if Sdelano < Plan then begin
Writeln('Ok')
else
Writeln('Kill all workers!')
end.

[juran]

Суть программы в том, чтобы понять выкурили ли сотрудники план и убить надо, если они его не скурили?)

program P;
var
Plan, i, temp: integer;
Sdelano: array[1..12] of integer;
begin
readln(Plan); {Считываем плановое значение}
temp := 0; {обнуляем временную переменную}
for i := 1 to 12 do begin {цикл. месяцев-то 12}
Readln(Sdelano[i]); {считываем объем производства в i-м месяце}
temp := temp + Sdelano[i]; {увеличиваем временную переменную на это значение}
end;
if Sdelano < Plan then begin {проверка на соответствие плану}
Writeln('Ok') {если все ок, то ОК}
else
Writeln('Kill all workers!'){а если нет - то зачем держать таких работников???}
end.

Жирную зону надо заменить на
if temp<Plan then begin {Здесь мы проверяем, превзошли ли мы план производства}
Writeln('Kill all workers!') {если нет - то зачем держать таких работников???}
else
Writeln('Ok'); {а если все ок, то ОК}
readln;
end.

[Serge_Bliznykov]

1) Вы "забыли" указать, что эту программу Вам полностью написали...
2) компилятор Паскаля позиционируется на ошибку и пишет, что это за ошибка (правда на английском, но, если так тяжко с английским языком, то воспользуйтесь услугами онлайн переводчика!)
3) и последнее, я очень сильно подозреваю, что автор этого кода сделал ошибки специально, чтобы хоть как-то подстегнуть ваш образовательный процесс, поэтому исправлять их принципиально не буду!
подскажу только - для массива надо задать размерность и подумать, для чего в цикле
выполняется вот эта строчка:
temp := temp + Sdelano[i];



добавлено
мдя... пока писал, уже молодые да ранние успели отметиться..
ну дай Бог, дай Бог... будем надеяться, что это пойдёт на пользу...

[juran]

Видимо я зря отписался... Это оказывается была ошибка в образовательных целях... ну тогда хотя бы откомментирую что ли...

[Serge_Bliznykov]

juran, да ладно, не расстраивайтесь, не на этом форуме, так на другом, эту ошибку всё равно бы поправили, а вот насчёт пользы для автора топика — будем надеяться, что ему станет стыдно (и страшно сдавать код, который он не понимает) и он разберётся, что делает данный код и как он работает...