program prjName;

{$mode objfpc}{$H+}

uses sysUtils,StrUtils;

procedure displayOptions();
begin


end;

function capInitName() : string;
begin


end;

function returnString() : string;
begin


end;

function getName() : string;
begin


end;

procedure inputName;
var
input, middle : string;
begin
  writeln('Please input your forename followed by your surname ');
  write('Make sure there is a space in between the names: ');
  readln(input);
  middle := midstr(input,1,length(input)-length(input)+1);
  writeln(middle);

end;

begin
  writeln('      NAME PROGRAM');
  writeln('------------------------');
  writeln;
  inputName;
  readln;
end.