Помогите пожалуста с практикой...

[Anatole]

ОДИНОЧЕСТВО В СЕТИ

s[80]:=s[80]+s[2];

Идея конечно заманчива, но компилятор скажет что-то типа: Type mismath.Но если вам хочется сложить коды двух символов, то лучше так

byte(s[80]):=byte(s[80])+byte(s[2]);

но тоже рисковано. можно получить ошибку выхода за диапазон

[ОДИНОЧЕСТВО В СЕТИ]

тут s-массив слов а не символов так что Type mismath врядли выскочит

[Stilet]

так что Type mismath врядли выскочит

Ану бегом проверять!
Еще как выскочит, ибо ты пытаешся два байта впихнуть в один

[ОДИНОЧЕСТВО В СЕТИ]

program stroka;
var s:array[1..2] of string;
begin
s[1]:='mom';
s[2]:='dad';
s[1]:=s[1]+s[2];
writeln(s[1]);
readln;
end.

результат momdad проверяйте если хотите TP7 или я что-то не так понимаю?

[Stilet]

ОДИНОЧЕСТВО В СЕТИ

Выкрутилась... Мы ж о типе String говорили, а не о массиве строк.

Впрочем думаю тема себя исчерпала...