Array Membalik Kalimat

uses wincrt;
var kal:string;
    huruf:array[1..255] of string[1];
    a:byte;
begin
clrscr; write ('kalimat = '); readln (kal);
        for a:=1 to length (kal) do
        begin
             huruf [a]:= kal [a];
        end;
        writeln;
        writeln('isi array huruf');
        for a:=1 to length (kal) do
        begin
        writeln('isi array ke-',a,': ',huruf [a]);
        end;
        writeln('abjad ke 3 = ',huruf[3]);
        writeln('hasil pembalikan kalimat : ');
        for a:= length (kal) downto 1 do
        begin
        write(huruf[a]);
        end;
   readln;
end.