что-то у меня не получается

[dinozavr]

Посмотрите в чем ошибка

type stroka = packed array [1..80] of char;
var s:stroka;
Известно, что в начале строки s находится не более 40 латинских букв, за которыми следуют пробелы. Напечатать эту строку, предварительно заменив все вхождения abc на def.

Вот:
const
abc='abc';
def='def';
type stroka = packed array [1..80] of char;
var
s:stroka;
begin
writeln('stroka s');
end.

[Sazary]

Посмотрите в чем ошибка

Ошибка в отсутствии программы.
Где она?
Все, что вы делаете, это выводите "stroka s".

[dinozavr]

Ну я не разбираюсь в этом((.С книжкой вот это напечатала кое-как((

[Sazary]

Во-первых, для данной задачи лучше использовать обычный string.
Поиск подстроки - pos, удаление - delete, вставка - insert. Более подробно об этих функциях расскажет учебник или поисковик.

То, что вы в чем-то не разбираетесь, не значит, что кто-то что-то за вас должен делать.

Чтож, давайте по порядку. Напишите алгоритм. Можете словами. В какой последовательности и что вы будете делать.

И еще, для ясности:

Известно, что в начале строки s находится не более 40 латинских букв, за которыми следуют пробелы.

приведите пример строки. Что-то мне условие как-то не очень понятно.

[dinozavr]

вот собстна строка:
type stroka = packed array [1..80] of char;
var s:stroka;

[Sazary]

вот собстна строка:
type stroka = packed array [1..80] of char;
var s:stroka;

Это не строка, а объявление типа и строковой переменной.
Я просил привести пример строки. Что вы собираетесь выводить?

ps Вы проигнорировали остальную часть поста?

[dinozavr]

Я не понимаю Вашего вопроса,какой пример строки,в задании больше ничего не сказано)).
Я кажется поняла, у меня только один вопросик,как обозначить,что в начале строки находится не более 40 латинских букв,за которыми следуют пробелы?))

[Sazary]

Я не понимаю Вашего вопроса,какой пример строки,в задании больше ничего не сказано)).

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

как обозначить,что в начале строки находится не более 40 латинских букв,за которыми следуют пробелы?))

А вот именно из-за этого я и задал первый вопрос. Мне тоже это сложно представить )

[dinozavr]

[QUOTE=Sazary;246703]Задам его по-другому. В задании нужно работать со строкой. То есть с реальной строкой, например, "Здравствуй, мир!" и прочее. Вот я и прошу привести строку, которую вы будете вводить.

Дело в том,что задание представлено в таком виде,в котором я написала,ничего там больше не сказано((

[Sazary]

dinozavr, ну тогда давайте придумывать задание.

Итак. Строка будет задана в таком виде:

a g r h f n j h t y y f g d

то есть одна буква, один пробел.
Нужно получить такую строку:

agrhfnjhtyyfgd

и в ней заменить все 'abc' на 'def'.

--------------------
Приступаем.
Объявляем строку:

str : string[80];

далее читаем эту строку.
Теперь нужно удалить пробелы. Делается это так:

repeat
k := pos(' ',s);
if k<>0 then delete(s,k,1);
until k=0;

После этого нужно заменить все 'abc' на 'def':

repeat
k := pos('abc',s);
if k<>0 then
 begin
 delete(s,k,3);
 insert('def',s,k);
 end;
until k=0;

Остается объявить переменные и вывести конечную строку.
А это уже сделайте сами.