Pascal: Splitting a String Into Two Parts

program Project1;

uses SysUtils;

var fullname, firstname, lastname:string;
i,j, k, spacepos:integer;

begin
writeln('Enter a name');
readln(fullname);
for i := 1 to length(fullname) do
if fullname[i] = ' ' then
spacepos:=i;
firstname:=''; //initialise to empty string
//writeln(p); //test space found
for j := 1 to spacepos -1 do
firstname:= firstname+fullname[j];
lastname:=''; //initialise to empty string
for k := spacepos+1 to length (fullname) do
lastname:=lastname+fullname[k];
writeln(firstname,' ',lastname);
readln;
end.

Back to questions