Найдите ошибку в задаче

[Rebelition]

Я в отчаяние, пожалуйся посмотрите на мой код и скажите, что не так...
Саму задачу я в txt вложу, она большая.
Опишу некоторые переменные: S - сумма всех чисел, KolPod - кол-во чисел в подъеме, FinalKolPod - окончательное кол-во чисел в подъеме, Pev - первое число подъема, Pos - последнее число подъема.

program c4;
uses crt;
var a,s,g,KolPod,FinalKolPod,Pev,Pos,Fi nalPev,FinalPos:integer;

BEGIN
clrscr;
S:=0; g:=0; KolPod:=0; FinalKolPod:=0; Pev:=0; Pos:=0;
repeat
writeln(введите число);readln(a);
S:=S+1;
IF (a>g) then
begin
KolPod:=KolPod+1;
if (Pev=0) then Pev:=a else
Pos:=a;
end;
ELSE
if (FinalKolPod<KolPod) then
begin
FinalKolPod:=KolPod;
FinalPev:=Pev;
FinalPos:=Pos;
Pev:=0;Pos:=0;
end;
g:=a;
until(a=0);
writeln(S);
writeln(FinalPev+FinalPos-FinalKolPod);
readln;
END.

[whatever]

Высотой подъема называется разность XT+N-XT

Судя по входным/выходным данным это "элемент [XT+N] - элемент [XT]"

А вообще, код что-то сильно мудреный.

 var
 a,s,g,Pev,Posl:integer;//POS - стандартная функция, лучше не переобозначать
 hight:integer;
 BEGIN
 clrscr;
 S:=0;
 g:=0;
 Pev:=0;
 hight:=0;
repeat
  writeln('введите число');
  readln(a);
  if a<>0 then
    S:=S+1;
  IF (a>g) then
    begin
      if (Pev=0) then
        Pev:=a
      else
        Posl:=a;
    end
  ELSE
    if (Posl-Pev)>hight then
      begin
        hight:=Posl-Pev;
        pev:=a;
      end
    else
      pev:=a;
  g:=a;
until(a=0);
writeln(S);
writeln(hight);
readln;
END.

И еще, мне всегда интересно было, как можно писать программы с такими ошибками:

writeln(введите число)

 end;
 ELSE

Это ведь ошибки не в алгоритме, тупо синтаксис. Неужели сам даже не запускал?

[Rebelition]

Сообщение от whatever

Это ведь ошибки не в алгоритме, тупо синтаксис. Неужели сам даже не запускал?

Спасибо большое. Я тупо точку с запятой не увидел. Всё моя невнимательность(