РЕБЯТА! Delphi

[Marika Polskyh]

я пришла на лингвиста, а не на порограммиста
помогите что сложно?

[Vanta11a]

Вопрос - а сколько стоит Ваше время?
Вам привели алгоритм, теоретически рабочий. Ваша задача - ХОТЯ БЫ его запустить и получить данные "на выхлопе", чтобы проанализировать, что он делает не так. У меня вот под рукой компилятора нет.

[Marika Polskyh]

спасибо за помощь! я кинула что мне преподаватель сказала но оно выбивает ошибку

[Vanta11a]

У меня вот под рукой компилятора нет.

но оно выбивает ошибку

Какую ошибку? В какой строке? Где код?

[Marika Polskyh]

Var
 S: String;
 k: integer;
 p: integer;
 begin
 s:= edit1.text;

 k:= pos ('(',S );
 p:= pos (')', S)
 while pos('(',S) > 0 do delete (S,K, p-k+1)

 end;

 end.

[Marika Polskyh]

=((((((((((((((

[Vanta11a]

Вопрос. Код вот тут для красоты написан?

А по ошибкам. Ругается на отсутствие edit1. Он не переименован случаем?
Дальше. Точки с запятой где?

[Alex11223]

Ну и? Написано ж missing operator or semicolon — пропущен оператор или точка с запятой.

[Marika Polskyh]

код что вы кинули больно мудрен

[Vanta11a]

Ну и на кой Вы мне тогда мозги полощете? Считаете что Ваш код справится лучше? Дак пишите сами и разбирайтесь сами, в чем проблема то?

А логику работы Вашего кода я воспринять не могу.