Составить программу движения прямоугольника снизу вверх

Когда данные существуют в виде: имя - значение например: имя ученика:     |     рост артем                 |     156 саша                 |     187 и т.д. или когда значение не одно, а несколько, допустим.  использование таблицы более удобно зрительно. так же, таблицу можно разбить на некоторые блоки, когда допустим у одного элемента некоторые параметры одинаковы. 

// pascalabc.net 3.0, сборка 1111 const   alpha=['a'..'z'];   digits=['0'..'9']; var   na,nd,i: integer;   s: string; begin   na: =0; nd: =0;   write('введите текст: '); readln(s);   for i: =1 to length(s) do       if s[i] in alpha then inc(na)       else           if s[i] in digits then inc(nd);   if na> nd then writeln('в тексте больше букв')   else       if na< nd then writeln('в тексте больше цифр')       else writeln('в тексте букв и цифр поровну') end. тестовое решение: введите текст: the equation 3.546x^2+4.18x-4.1=0 в тексте больше букв