var 
  str : array[ 1..20 ] of char;
endVar

begin
  str := 'Hello, World!';
end;