Написать алгоритм и программу суммы элементов таблицы а(10) меньше 5

Field(11,8); topoint(1,3); pendown; topoint(2,4);   topoint(1,5);   topoint(3,3);   topoint(2,4); topoint(2,5);   topoint(2,3);   topoint(2,4);   topoint(3,5); penup; topoint(5,5); pendown;   topoint(4,5);   topoint(4,4);   topoint(5,4);   topoint(4,4);   topoint(4,3);   topoint(5,3); penup; topoint(6,5);   pendown; topoint(6,3);   topoint(6,4);   topoint(7,4);   topoint(7,5);   topoint(7,3); penup;   topoint(8,3); pendown; topoint(9,4);   topoint(9,3);   topoint(9,5); topoint(8,5);   topoint(8,4);   topoint(9,4);   penup; end. если ошибка в какой  то букве говорите           

Unit unit1; interface uses   windows, messages, sysutils, variants, classes, graphics, controls, forms,   dialogs, stdctrls, extctrls; type   tform1 = class(tform)       image1: timage;       button1: tbutton;       opendialog1: topendialog;       procedure button1click(sender: tobject);   private       { private declarations }   public       { public declarations }   end; var   form1: tform1; implementation {$r *.dfm} procedure tform1.button1click(sender: tobject); begin   if opendialog1.execute then   begin   image1.picture.loadfromfile(opendialog1.filename);   image1.stretch: =true;   image1.left: =form1.width div 2-image1.width div 2;   image1.top: =form1.height div 2-image1.height div 2;   end end; end.