Стопорится компиляция

[DonQuatro]

Всем привет! Программированию только учусь, и поэтому много не знаю, надеюсь что вы мне поможете. Суть проблемы:
Пытаюсь собрать небольшую консольную аппу, весь код из учебника, но сборка останавливается на uses и дальше не идет. Все необходимые модули (для проекта нужен только LCL) подключены. Код ниже. Lazarus IDE v0.9.30.4RC3

Код: Выделить всё

program project1
{$mode objfpc} {$H+}
uses
crt, fileutil;
procedure static_var
const x: integer = 0;
begin
writeln(('Before changes x= '), x);
x:= x+25;
writeln(('After changes x= '), x);
end;
begin
writeln(UTF8ToConsole('Изменение статической переменной x'));
writeln(UTF8ToConsole('Внутри процедуры после первого вызова'));
static_var;
writeln(UTF8ToConsole('Изменение статической переменной x'));
writeln(UTF8ToConsole('Внутри процедуры после второго вызова'));
static_var;
writeln('press any key');
readkey;
end.                                              

Заранее спасибо!

[Frolik]

Нужна точка с запятой в конце первой строки.

[DonQuatro]

Нужна точка с запятой в конце первой строки.

Спасибо!


Следующая остановка идет уже на константе

Код: Выделить всё

 const x: integer = 0;

Добавлено спустя 1 минуту 12 секунд:
Все спасибо! Я забыл везде проставить ; теперь понял, еще раз спасибо!

[Frolik]

то же самое. отсутствует точка с запятой. компилятор же сообщает в чем ошибка.

[Little_Roo]

program project1

Строка должна заканчиваться ;

Так же строка с procedure...

весь код из учебника,

А из какого? То, что вы предложили, это не код, а диверсия...

[DonQuatro]

А из какого? То, что вы предложили, это не код, а диверсия...

из Мансурова:) самое печально, я не знаю ошибок, т.е. даже когда компилятор пытается подсказать мне что ему не нравится, обводя program begin end. в красные квадраты - я не могу понять чего этому лазарусу от меня надо

[DonQuatro]

Та же проблема

Код: Выделить всё

program project_me;
{$mode objfpc} {$H+}
uses
crt, fileuil;
var
x: integer;
procedure local_global;
var
y, x: integer;
begin
y:=25;
x:=y;
writeln(('local variable x= '), x);
end;
begin
 x:=1;
 writeln('global variable x');
 writeln('before procedure'), x);
 local_global;
 writeln('global variable x');
 writeln(('after procedure x= '), x);
 writeln('press any key');
 readkey;
end.

В красных квадратах program begin end.

[Little_Roo]

когда компилятор пытается подсказать мне что ему не нравится, обводя program begin end. в красные квадраты - я не могу понять чего этому лазарусу от меня надо

Показывает, где начинается begin, и где (по его мнению) находится его соответствующий end

[DonQuatro]

Показывает, где начинается begin, и где (по его мнению) находится его соответствующий end

да показывал он все правильно, я просто написал не fileutil а fileuil

[Vadim]

я просто написал не fileutil а fileuil

А в этом случае компилятор не может понять, что Вам от него нужно. Вам в школе не зря столько лет ставили оценку за орфографию - оказывается правильная орфография очень нужна.