Smazání mezer//tisknuti prazdnych hodnot stringu – Pascal – Fórum – Programujte.com

dobrej, delam ukol na otoceni jmena a prijmeni, at ale delam cokoli, nedokazu ses zbavit prebytecnych mezer, jsem zacatecnik tak to bude asi tim, nepomohl ani google, prakticky de o to, ze to tiskne prazdne znaky stringu a nevim jak se jich zbavit, prosim o radu

program referat;
uses crt;
var jmeno,prijmeni:string[10];
i,v:integer;
begin
clrscr;
writeln('Zadej jmeno: ');
readln(jmeno);
writeln('Zadej prijmeni: ');
readln(prijmeni);
for i:=10 downto 1 do
write(jmeno[i]);
writeln;
for v:=10 downto 1 do
write(prijmeni[v]);
writeln;
readkey;
end.

obrazek-http://movies.esuba.net/lopflop/pascal.png

To lopflop : Jsou 2 moznosti- bud pouzijes klasicky velky string a cyklus bude od jmeno[0] do 1. Na nultem znaku stringu je ulozena jeho delka. Nebo jestli opravdu trvas na tom, ze ten string bude mit 10 znaku, tak si prvni cely ten string zapln nejakym znakem, treba mezerou, a do vypisu dej if jmeno[i]<>' ' then write(jmeno[i]).

Krychlik napsal:
To lopflop : Jsou 2 moznosti- bud pouzijes klasicky velky string a cyklus bude od jmeno[0] do 1. Na nultem znaku stringu je ulozena jeho delka. Nebo jestli opravdu trvas na tom, ze ten string bude mit 10 znaku, tak si prvni cely ten string zapln nejakym znakem, treba mezerou, a do vypisu dej if jmeno[i]<>' ' then write(jmeno[i]).

Dulezita cast textu, priste radsi cist 2x "prvni cely ten string zapln nejakym znakem, treba mezerou," V prazdnem stringu jsou nahodne znaky, to co bylo v te pameti predtim a ne mezery.

for i:=length(jmeno) downto 1 do


a hotovo;)