title: Pascal strings & records
body: <p>Here is my code so far, incase you cannot tell I am trying to write a dictionary, maybe with 1 thing with every letter of the alphabet, maybe just 15 or so random entries. Here is what I have so far</p>
  
  <pre><code>program Dictionary;
  
  uses crt;
  
  Type
   Asdf = String[26];
   Definition = Record
                      First, Full, NorV, Class : Asdf;
                      End;
  Var
   A, B, C, D, E, F, g, h, i, j, k, l, m, n, o, p, q, r,
   s, t, u, v, w, x, y, z : Definition;
  
  BEGIN
   a.First := 'a';
   a.Full := 'apple';
   a.NorV := 'noun';
   a.Class := 'fruit';
  
   b.First := 'b';
   b.full := 'bee';
   b.NorV := 'noun';
   b.Class := 'insect';
  
   c.first := 'c';
   c.full := 'cat';
   c.NorV := 'noun';
   c.class := 'animal';
  
   d.first := 'd';
   d.full := 'dunk';
   d.Norv := 'verb';
   d.class := 'action';
  
   e.first := 'e';
   e.full := 'egg';
   e.norv := 'noun';
   e.class := 'food';
  
   f.first := 'f';
   f.full := 'forget';
   f.norv := 'verb';
   f.class := 'action';
  
   g.First := 'g';
   g.Full := 'grape';
   g.NorV := 'noun';
   g.Class := 'fruit';
  
   h.First := 'h';
   h.Full := 'horse';
   h.NorV := 'noun';
   h.class := 'animal';
  
   i.First := 'i';
   i.Full := 'invent';
   i.NorV := 'verb';
   i.class := 'action';
  
   j.First := 'j';
   j.Full := 'jump';
   j.NorV := 'noun';
  j.class := 'action';
  
   k.First := 'k';
   k.Full := 'kangaroo';
   k.NorV := 'noun';
   k.class := 'animal';
  
   l.First := 'l';
   l.Full := 'look';
   l.NorV := 'verb';
   l.class := 'action';
  
   m.First := 'm';
   m.Full := 'mango';
   m.NorV := 'noun';
   m.Class := 'fruit';
  
   n.First := 'n';
   n.Full := 'noose';
   n.NorV := 'noun';
   n.class := 'object';
  
   o.First := 'o';
   o.Full := 'orangutan';
   o.NorV := 'noun';
   o.class := 'animal';
  
   p.First := 'p';
   p.Full := 'prod';
   p.NorV := 'verb';
   p.class := 'action';
  
   q.First := 'q';
   q.Full := 'queen';
   q.NorV := 'noun';
   q.class := 'royalty';
  
   r.First := 'r';
   r.Full := 'run';
   r.NorV := 'verb';
   r.class := 'action';
  
   s.First := 's';
   s.Full := 'shoot';
   s.NorV := 'verb';
   s.class := 'action';
  
   t.First := 't';
   t.Full := 'train';
   t.NorV := 'noun';
   t.class := 'transport';
  
   u.First := 'u';
   u.Full := 'umbrella';
   u.NorV := 'noun';
   u.class := 'object';
  
   v.First := 'v';
   v.Full := 'vegetable';
   v.NorV := 'noun';
   v.class := 'vegetable';
  
   w.First := 'w';
   w.Full := 'walk';
   w.NorV := 'verb';
   w.class := 'action';
  
   x.First := 'x';
   x.Full := 'xylophone';
   x.NorV := 'noun';
   x.class := 'object';
  
   y.First := 'y';
   y.Full := 'yank';
   y.NorV := 'verb';
   y.class := 'action';
  
   z.First := 'z';
   z.Full := 'zoo';
   z.NorV := 'noun';
   z.class := 'area';
  
   Writeln ('Type the first letter of the word you want to view');
   Readln (
  </code></pre>
  
  <p>END.</p>
  
  <p>what should i put at the end so that when it is typed, it can be searched? I can add more variables if i have to. Help please!</p>