Склавиатуры вводится строка, содержащая фамилию и имя. составьте программу, которая: удаляет фамилию и выводит на экран имя в верхнем регистре.
паскаль

Program anton4nk;

uses crt;

var x, y : string;

begin

clrscr;

writeln('Введите имя и фамилию.');

readln(x,y);

writeln(x);

end.

Если я правильно конечно понял задачу. Если нет, отпиши.