помогите исправить программы (найти ошибки)....

[aiktz]

1. Удаление начальных пробелов строки

var
st:string[80]; { строка } begin
writeln('Удаление начальных пробелов строки.1);
write('Введите строку:');
readln(st);
while (post1 ',st) = 1) and (length(st)>0) do delete(st,1/1);
write('Строка без начальных пробелов:',st);
readln;
 end.

2. Вычисление суммы ряда 1+1/2+1/3+ ...

var
n: integer; { кол-во суммируемых членов ряда }
i:integer; { номер элемента ряда }
elem:real; { значение элемента ряда }
summ:real; { сумма элементов ряда }
begin
writeln('Вычисление частичной суммы ряда 1+1/2+1/3+...');
writeln('Введите кол-во суммируемых членов ряда');
write('->');
readln(n);
suinm:=O;
for i:=1 to n do
begin
elem:=l/i;
summ: =suimH-elem; end;
write('Сумма первых *,n); writeln(' членов ряда равна ', suram: 6: 4) ; readln;
end.

3. Программа преобразует десятичное число в число в указанной пользователем системе счисления (от 2-х до 10-ти)

program zad9;

uses Crt;
var
o,n,ã:integer;
s:string[16];
buf:string[1];
begin
ClrScr;
write('Vedite celoe chislo -> ');
readln(n);
write('Vvedite osnovanie sistemi schisleniyaÿ -> ');
readln(o); s: = " ;
repeat
r:=n mod o;
n:=n div o;
Str(r,buf);
s:=buf+s;
until(n<o)I Str(n,buf);
s:=buf+s; writeln(s);
readln;
end;
uses Crt;
var
n:integer;
r:integer;
s:string[16];
buf:string[1];
begin
ClrScr;
write('Vvedite celoe chislo -> ');
readln(n);
s: = " ;
write('Decyatichnomu chisly ' ,n) ;
write (' Sootvetstvyet 16-noe') ;
repeat
r:=n mod 16;
n:=n div 16;
if r<10 then buf:=chr(r+48)
else buf:=chr(r+55);
s:=buf+s; until(n<16);
if n <> 0 then begin if n<10
then buf:=chr(n+48) else buf:=chr(n+55);
s:=buf+s;
end;
writeln(s);
readln;
end.

очень нужна Ваша помощь!!!!!!!........какие - то ошибки не понятные выдает....то begin пишет поставить надо, ставлю, снова ошибки......помогите плиз!!!

[DM_bite]

очень нужна Ваша помощь!!!!!!!........какие - то ошибки не понятные выдает....то begin пишет поставить надо, ставлю, снова ошибки......помогите плиз!!!

Вы этот код скопипастили?

var
n: integer; { кол-во суммируемых членов ряда }
i:integer; { номер элемента ряда }
summ:real; { сумма элементов ряда }
begin
writeln('Вычисление частичной суммы ряда 1+1/2+1/3+...');
writeln('Введите кол-во суммируемых членов ряда');
write('->');
readln(n);
summ:=0;
for i:=1 to n do
begin
summ:=summ+1/i; end;
write('Сумма первых ',n); writeln(' членов ряда равна ', summ: 6:4) ; readln;
end.

[aiktz]

3 задачу я уже исправила.....

[DM_bite]

Удаление начальных пробелов строки

Что значит удаление начальных пробелов строки?
Ну и для начала:

var
st:string[80]; { строка } begin
writeln('Удаление начальных пробелов строки.1');// забыли кавычки.
write('Введите строку:');
readln(st);
while ('post1 ',st) = 1) and (length(st)>0) do delete(st,1/1);// и здесь
write('Строка без начальных пробелов:',st);
readln;
 end.

И, если не ошибаюсь ошибка в функции

delete(st,1/1, ?);

недостаточно параметров.

[aiktz]

то есть если в начале строки стоят пробелы, то их нужно удалить

[aiktz]

помогите плиз исправить 1 и 2 задачки.......голова совсем уже не думает((

[aiktz]

ура....решила.....спс