vetanaslova

//Program si vypyta vetu a rozdeli ju do riadkov podla slov
program vetanaslova;
{$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
    if v[i]<>' ' then write(v[i])
      else writeln;
  readln;
end.