Процедуры. Delete(Var S:String; N, MJnteger) Удаляет М символов из строки S, начиная с позиции N

Delete(Var S:String; N, MJnteger) Удаляет М символов из строки S, начиная с позиции N.

Insert(SubS: String; Var S:String; N:Integer) Вставляет подстроку SubS в строку S, начиная с позиции N.

Str(X:Integer; Var S:String) Возвращает представление числа Х в его символьной форме S.

Val(S:String; Var X, Code: Integer) Возвращает представление символов строки S в ее числовой форме К- Параметр Code содержит признак ошибки преобразования (если Code = 0 ошибки нет).

Функции

Chr(X:Byte):Char Возвращает символ с заданным порядковым номером X.

Concat(Sl[, S2,.... SN]):String Выполняет сцепку (конкатенацию) последовательности строк.

Copy(S:String; N, M:Integer):String Возвращает подстроку из строки S, начиная с позиции N и длиной М символов.

Length(S:String):Byte Возвращает количество символов в строке S.

Ord(X:Char):LongInt Возвращает порядковый номер символа Х в таблице кодов символов.

Pos(SubS, S: String):Byte Возвращает номер позиции, начиная с которой в строке S распола­гается подстрока SubS (если значение функции равно нулю, то S не содержит SubS).

Программа, которая ведёт с вами в диалог.

Program primer 1;

Uses crt;

var a, b: string [50];

Begin

Clrscr;

writeln ('Добрый день!');

writeln ('Назовите, пожалуйста, свое имя');

readln (a);

writeln ('Рад познакомиться, ', а);

writeln ('Как поживаете? ');

readln (b);

writeln ('Какое совпадение! И я ', b);

readln;

End.