Losowanie ze zbioru znaków i liczb.

Witam. Otóż chciałem napisać algorytm na losowanie elementów ze zbioru. Niestety wyskakuje mi błąd, że są nieodpowiednie typy. Może mógłby mnie ktoś naprowadzić i pokazać błędy jakie popełniłem? Do programu stworzyłem procedurę.

program Project1;
uses SysUtils;

type t=array [1..7]of char;
  var
    i,j,n:integer;
    t1,a:t;

      procedure poko(tab2:t;tw1:t);
    var
      i,j,k:integer;

      begin
              randomize;
        for i:=1 to 7 do begin
         tab2[i]:=random (a);
         writeln (tab2[i]);

            end;
        end;


begin
  a[1]:='1';
  a[2]:='c';
  a[3]:='1';
  a[4]:='b';
  a[5]:='w';
  a[6]:='p';
  a[7]:='5';
 poko (t1,a);
readln;
end.   

Zapoznaj się z pojęciem formatowania kodu.

writeln(tab2[1+random(7)]);