помоги, написала прогу, выдает ошибку 36 во 2ой строке. Не могу понять, как это исправить...

Question

procedure
lab4;

uses crt;

var a,b:
array[1..100] of integer;

i,j,x,n:integer;

begin

clrscr;

x:=0;

j:=1;

write('чч? э~d? f ї?f ї ,,~ч ');

readln(n);

for i:=1 to
n do

a[i]:=random(100);

for i:=1 to
n do

writeln(a[i]:3);

for i^=1 to
n do

if a[i] mod
2=0 then begin

b[j]:=a[i];

j:=j+1;

x:=1;

end;

readln;

n:=j;

if x=0 then
writeln ('-?d p?d-kt') else

FOR I:=1 TO
n-1 do

writeln(b[i]:3);

readln;

end;

Юлия Мацнева · Accepted Answer

у вас в первой строке записанно системное слово поцедура, а должнобыть programm или пусто но тогда и второй строки не должно быть

Елена Воронина · Answer

Не в курсе разрешено ли в паскале подключение модулей внутри процедур. компилятора под рукой нет но может вынести юзес в начало проги?