Veta na písmená

//Napiste program ktorý si vypýta vetu a túto vetu rozdeli na písmena do jednotlivých riadkov
program vetanapismena;
{$APPTYPE CONSOLE}
uses SysUtils;
var v:string;
    i:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte vetu: ');
  readln(v);
  for i:=1 to length(v) do writeln(v[i]);
  readln;
end.