Ввести слово и: а) напечатать его по вертикали; б) переставить буквы слова в обратном порядке — Pascal(Паскаль)

а) Будем рассматривать слово слева направо и делать посимвольную вырезку (копию), а затем печатать вырезанный символ.

program рЗ5;
  uses crt;
  var i:byte;
      a:string;
begin
  clrscr;
  writeln('a=');readln(a) ;
  for i:=1to length(a) do
  writeln(copy(a,i,1);
  readln;
end

б) Двигаясь справа налево и делая посимвольную вырезку, мы получим нужное слово.