Нужно написать систему с for(цикл) С о 50 балов!!!

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

namespace WindowsFormsApp1

{

   public partial class Form1 : Form

   {

       public Form1()

       {

           InitializeComponent();

       }

       private void textBox1_TextChanged(object sender, EventArgs e)

       {

           

       }

       private void textBox2_TextChanged(object sender, EventArgs e)

       {

           

       }

       private void button1_Click(object sender, EventArgs e)

       {

           var a = textBox1.Text;

           var a1 = int.Parse(a);

           var b = textBox2.Text;

           var b1 = int.Parse(b);

           var x = a1;

           for (; a1<b1;a1++)

           {

               x = a1 * a1;

               listBox1.Items.Add(a1 + " в квадрате = " + x);

           }

       }

       private void listBox1_SelectedIndexChanged(object sender, EventArgs e)

       {

       }

   }

}

Var s: string; i, j, k: integer; a: array [1..256] of char; begin readln(s); for i: = 1 to length(s) do begin     for j: = 1 to k do         if a[j] = s[i] then begin             writeln('есть');             exit;             end;     a[i]: = s[i];     inc(k);       end; writeln('нет'); end. попрошу отметить, как лучшее решение