Строковые перемннные

[Дарьюша]

{строковые переменные}
{ввести строку с клавиатуры, заменить все символы "," на символы ";",
вывести результирующую строку, вывести длину строки, количество слов и количество замен}

user crt;
var
S, subS, SuperS: string;
C: char;
L: integer;
Begin
S:= 'sdfg';
SubS:=S;
L:= Pos ('f', S);
Insert ('123', S,3);
Delete (S, 2,10);
subS:= Copy (S,2,10);
L:= Length (S);
superS:= concat (S, subS);
C:= S[2];
writeln ('''word''')
end.

если можно с объяснением.. очень надо...))


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Летучий_СкилетиК]

Uses crt;
Var
    a,c:string;
    i,n,k,l:integer;
Begin
read(a);
k:=0;
l:=0;
i:=1;
c:=';';
while (i <= length(a)) do
begin
    while ((i <= length(a))and(a[i]=' '))do
       inc(i);
    inc(l);
    while ((i <= length(a))and(a[i]<>' '))do
    begin
        if a[i] = ',' then begin delete (a,i,1);insert(a,c,1);inc(k);end;
        inc(i);
    end;
end;
if a[length(a)]=' ' then dec(l);
writeln('Dlina =',length(a));
writeln('kol-vo zamen =',k);
writeln('kol-vo slov=',l);
writeln(a);
End.

[as.ut]

Всем привет , помогите пожалуйста с практикой =)
Составить программу табулирования функции y=|x-2|+|x+1| на отрезке [-4;4] с шагом 0.5
Я тут вот начал , но декан говорит что не катит ....
program p1;
uses crt;
var
y,x:real;
begin
clrscr;
writeln('Введите число x');
x:=-4;
readln(x);
repeat
if (-4<=x) and (x<=4) then;
y:=(abs(x-2)+abs(x+1));
writeln('y=',y:5:2);
x:=x+0.5;
until
x>-4;
readln;
end.

[Летучий_СкилетиК]

x:=-4;
readln(x);

декан прав не катит)))

p.s

...x:=-4;
repeat
y:=(abs(x-2)+abs(x+1));
writeln('y=',y:5:2);
x:=x+0.5;
until x>=4;...

[]-эти скобки означают что интервал включительно
это

if (x>=-4) and (x<=4) then;

не нужно