С клавиатуры одной строкой вводят имя и фамилию. Составте программу, которая: Копирует в новую строку имя и выводит его.

Держи, если есть вопросы - пиши.
var a, b: string;
var c: word;
begin
c:=1;
Readln (a);
While (a [c] <> ' ') do begin
b:=b+a [c];
c:=c+1;
end;
writeln (b);
end.