program MyStringDemo;

uses
  Forms;

var
 LastName: String;
 FirstName: String[5];
 NewFirstName: String[30];

begin
 LastName := 'Smith-Mistier';
 FirstName := 'Susan';
 NewFirstName := 'Angelica';

 Writeln('Imi: ', FirstName);
 Writeln('Nazwisko: ',LastName);

 FirstName := NewFirstName;

 Writeln('Nowe imi: ', FirstName);

 Readln;
end.