Имеется n итоговых оценок студента. Определите, является ли студент неуспевающим (имеются оценки ниже 4).

[Murfik97]

Имеется n итоговых оценок студента. Определите, является ли студент неуспевающим (имеются оценки ниже 4).
Я как бы решил, но все равно не че толком не работает, кто может покажите как должен быть прописан код


procedure TForm1.Button1Click(Sender: TObject);
var
A: array[1..100] of integer;
k, S, i, N: integer;
begin
label3.Caption:='';
label2.Caption:='';
label1.Caption:='';
Randomize;
n:=strtoint(edit1.text);
k:=0
for i:=1 to n do
begin
a[i]:=Random(10);
label3.Caption:=label3.Caption + inttostr(a[i])+' ';
end;
for i := 1 to n do
begin
if (a[i]<4 ) then
K:=k+1
else
if K>0 then
label2.Caption:=Label2.Caption 'неуспевающий ';
end;


end;
end.

[ZX Spectrum-128]

label2.Caption:=Label2.Caption 'неуспевающий';

А в этой строке что сказал компилятор?

[Murfik97]

оно все пошло, но надпись может появится там где надо и не надо

[Murfik97]

только я убрал 2-ой Label2.Caption и получилось:label2.Caption:= 'неуспевающий '; вместо label2.Caption:=Label2.Caption 'неуспевающий ';