Встречено '.', а ожидалось ';'

[cyberstorm]

Начал делать курсовую, в которой нужно написать простую драку двух персонажей. Начал с самого элементарного, т.к языка толком не знаю- не учили особо. Так вот, написал небольшой кусок в ABC:

function stats(HP, str:real) : real;
var
currhp: real;
Begin
HP:=50;
str:=5;
While (hp-str)>0 do begin
currhp:=(HP-str);
end;
writeln (currhp);
end.

При запуске ошибка Встречено '.', а ожидалось ';'. И не пойму что делать. Также прошу помочь: как добавить "двух персонажей" чтобы они "минусовали" друг другу здоровье? Подскажите хотя бы на начальном уровне,а там разберусь.




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

end.

(с точкой в конце) в Паскале означает конец программы (программного модуля) и должен стоять последним.
Вы же описываете функцию. Она должна завершится

end;

(end с точкой-запятой)
и после должен быть ещё код самой программы.

ну и сразу ещё один косяк.
при чём, в отличии от первого, он ошибки компиляции не вызовет. А работать программа не будет.
Вы знаете, что означает слово function ?
это означаете ФУНКЦИЯ
а функция ОБЯЗАТЕЛЬНО должна вернуть значение в вызывающую программу.
Попытайтесь ответить себе на вопрос - где Вы производите вычисление результирующего значения и возврат его.


p.s. думаю, что Вам надо начать с какого-нибудь букварика по Паскалю. Написать пару простых программ (без использования функций и процедур), а вот потом, когда Вы прочитаете, что такое процедура/функция, можно уже и их использовать в своём коде.

p.p.s. И форматируйте код ОТСТУПАМИ. Это и нагляднее, и проще для понимания/модификации и Вам же полезнее - позволяет избежать ошибок.