[Pascal ABC] в заданной строке вместо первого символа поставить пробел а вместо последнего точку

[Sciv]

Я тестер. Меня бомбит от багов

[Вадим Мошев]

Сообщение от Sciv

Меня бомбит от багов

Кого от них не бомбит. А особенно от таких, из-за которых результат получается неверным. Но теперь всё отлажено.

[digitalis]

Сообщение от Вадим Мошев

Кого от них не бомбит. А особенно от таких, из-за которых результат получается неверным. Но теперь всё отлажено.

проверим
нет пробелов
есть пробелы
ничего не изменилось

нет пробелов
    есть пробелы

ну с тэгами - оно конечно...

[newerow1989]

var s:string;
begin
   Write('s = '); Readln(s);
   s[1]:=' ';
   s[Length(s)]:='.';
   Writeln(s);
   Readln;
end.

[Serge_Bliznykov]

Сообщение от newerow1989

s[1]:=' ';

введите, пожалуйста, пустую строку и расскажите, как программа отработала

[newerow1989]

var s:string;
begin
   Write('s = '); Readln(s);
   If s<>'' then
   begin
      s[1]:=' ';
      s[Length(s)]:='.';
   end;
   Writeln(s);
   Readln;
end.