Встречен конец файла, а ожидалось ';'

[ОпОпОп]

на знание паскаля не претендую, просто прорешиваю задание для СР по информатике. Не могу понять, что не так. Выдаёт "Program3.pas(19) : Встречен конец файла, а ожидалось ';'"

Program massiv;
var
A:array [0..9] of integer {7, 5, 3, 4, 8, 8, 9, 2, 6, 2];
i,t,c:integer;
Begin
c:=0;
for i:=1 to 9 do
if (A[i-1]) < (A[i]) then
begin
t:=A[i];
A[i]:=A[i-1];
A[i-1]:=t;
end;
else
c:=c-1;
write(A);
writeln;
end.

[ОпОпОп]

ОпОпОп, я разобралась, там не так скобочка была

[digitalis]

Текст исходника принято форматировать. Тогда и читать его легко, и ошибка легче находится. И не в скобочке дело - после первого end не нужна ;
If ... else - это один оператор. Хотя в Си это малость по другому.

Program massiv;
var
A:array [0..9] of integer {7, 5, 3, 4, 8, 8, 9, 2, 6, 2];
i,t,c:integer;
Begin
   c:=0;
   for i:=1 to 9 do
   if (A[i-1]) < (A[i]) then
   begin
      t:=A[i];
      A[i]:=A[i-1];
      A[i-1]:=t
   end
   else  c:=c-1;
   write(A);
   writeln;
end.

И по алгоритму: что-то похожее на сортировку "пузырём", но не сортировка, а только один её проход. Где вложенный цикл?
Для распечатки массива тоже нужен цикл.
В общем, прогу можно озаглавить "Прога, делающая х.з.что".
Впрочем, если это абеце - то я пас.