string 1

{standardna duzina stringa je 255
type
 linija=string [255];
linijica=string[80];

var
a,b,c: linija;
d,e: linijica;
g, f: string;
h,i: string [50];

length(s)-duzina tekuceg stringa
pos(s1,s2)-vraca prvu poziciju od koje pocinje podstring s1 u s2, 0 ako nema
copy(s,p,d)-kopira dio stringa s od pozicije p duzine d
delete(s,p,d)-brise dio stringa s od pozicije p duzine d
insert(s1,s2,p)-ubaci s1 u s2 od pozicije p
}

var
s1,s2,s3,s4,s5,s6:string;
s7:string[10];
p:real;
m:integer;

begin
s1:='abcdefg';
s2:='abcdrtz';
if(s1<s2) then writeln(s1) else writeln(s2); //komparacija

s3:=concat(s1,s2,'lkopiklko');   //br argumenata >=2
writeln(s3);

s4:=s1+s2+'naaah'; //kao concat
writeln(s4);

str(27843,s1); //pregazi preko s1
str(2324.54,s5);
p:=43.23;
str(p,s7);
writeln(s1);
writeln(s5);
writeln(s7);
s6:='12345';
val(s6,m);
writeln(m);
writeln(m+10);

readln;
end.