Другие языки программирования и технологии

Знатоки Delphi и понимающие его подскажите

Составил прогу, работает, но с косяками... Суть работы на рисунке.
Код программы прикладываю:
procedure TForm1.ButtonFindClick(Sender: TObject);
var
i, result: integer;
begin
MemoResuls.Text := StringReplace(MemoText.Text, #13#10, #32, [rfReplaceAll]);
MemoResuls.Text := StringReplace(MemoText.Text, #32, #13#10, [rfReplaceAll]);
Result := 0;
for i := 0 to MemoResuls.Lines.Count-1 do
if strtoint(MemoResuls.Lines.strings[i])>0 then
Result:=Result+strtoint(MemoResuls.lines.strings[i]);
LabelKol.Caption:=(('Сумма положительных = '+ IntToStr(Result)));
LabelKol.Visible:=true;
end;

procedure TForm1.ButtonReadClick(Sender: TObject);
Var f:textFile;
s,FileName:string; стих: string; // назначаем переменную
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
begin
MemoText.Lines.Clear;
while not eof(f) do
Begin
Readln(f,s);
MemoText.Lines.LoadFromFile(OpenDialog1.Filename, TEncoding.UTF8);

End;
CloseFile(f);
EditLetter.SetFocus;
end;
end;

end;

end.
На фото указана сама задача. И как она работает с кодом выше. Кто сможет исправить недочёты и подскажет буду благодарен.

....result: integer;....
как тебя угораздило резервное слово использовать как имя переменной? неужели нет других слов? ну например: result0, result1, result2, result3, result4, result5, result6, result7, result8, result9, result10, result11, result12, result13, result14, result15, result16, result17, result18, result19, result20, result21, result22, result23, result24, result25, result26, result27, result28, result29, result30, result31, result32, result33, result34, result35, result36, result37, result38, result39, result40, result41, result42, result43, result44, result45, result46, result47, result48, result49, result50, result51, result52, result53, result54, result55, result56, result57, result58, result59, result60, result61, result62, result63, result64, result65, result66, result67, result68, result69, result70, result71, result72, result73, result74, result75, result76, result77, result78, result79, result80, result81, result82, result83, result84, result85, result86, result87, result88, result89, result90, result91, result92, result93, result94, result95, result96, result97, result98, result99, result100, result101, result102, result103, result104, result105, result106, result107, result108, result109, result110, result111, result112, result113, result114, result115, result116, result117, result118, result119, result120, result121, result122, result123, result124, result125, result126, result127, result128, result129, result130, result131, result132, result133, result134, result135, result136, result137, result138, result139, result140, result141, result142, result143, result144, result145, result146, result147, result148, result149, result150, result151, result152, result153, result154, result155, result156, result157, result158, result159, result160, result161, result162, result163, result164, result165, result166, result167, result168, result169, result170, result171, result172, result173, result174, result175, result176, result177, result178, result179, result180, result181, result182, result183, result184, result185, result186, result187, result188, result189, result190, result191, result192, result193, result194, result195, result196, result197, result198, result199, result200, result201, result202, result203, result204, result205, result206, result207, result208, result209, result210, result211, result212, result213, result214, result215, result216, result217, result218, result219, result220, result221, result222, result223, result224, result225, result226, result227, result228, result229, result230, result231, result232, result233, result234, result235, result236, result237, result238, result239, result240, result241, result242, result243, result244, result245, result246, result247, result248, result249, result250, result251, result252, result253, result254, result255, result256, result257, result258, result259, result260, result261, result262, result263, result264, result265, result266, result267, result268, result269, result270, result271, result272, result273, result274, result275, result276, result277, result278, result279, result280, result281, result282, result283, result284, result285, result286, result287, result288, result289, result290, result291, result292, result293, result294, result295, result296, result297, result298, result299, result300, result301, result302, result303, result304, result305, result306, result307, result308, result309, result310, result311, result312, result313, result314, result315, result316, result317, result318, result319, result320, result321, result322, result323, result324, result325, result326, result327, result328, result329, result330, result331, result332, result333, result334, result335, result336, result337, result338, result339, result340, result341
Сергей Мовчанюк
Сергей Мовчанюк
20 235
Лучший ответ
Игорь Аксенов Это ты решил так помочь?
Valerii Gofstein Так вроде не должно быть никаких косяков потому, что не должно скомпилиться.