Курсовая работа: Разработка программы на языке Borland Object Pascal (Ide Borland Delphi)

sFile, sLabelName: string;

i, iKol, j: integer;

begin

sFile:= Memo1.Lines.Text;

if sFile<>'' then

begin

iKol:= 0;

i:= pos('goto ', sFile);

while i<>0 do

begin

delete(sFile, 1, i+4);

i:= pos(';', sFile);

j:= pos(#13, sFile);

if ((j<>0)and(j<i))or(i=0) then

begin

lbRezultat.Caption:= 'Ошибка: Отсутсвует ;';

lbRezultat.Font.Color:= clRed;

Exit;

end;

sLabelName:= copy(sFile, 1, i-1);

if not (sLabelName[1] in ['A'..'Z', 'a'..'z'])then

begin

lbRezultat.Caption:= 'Ошибка: Неверное имя метки '+ sLabelName;

lbRezultat.Font.Color:= clRed;

Exit;

end;

for i:= 2 to length(sLabelName) do

if not(sLabelName[i] in ['0'..'9', 'A'..'Z', 'a'..'z']) then

begin