Впаскале) ) надо ввести имя фамилию и отчество с клавиатуры затем сделать так чтобы программа вывела отдельно в строчку фамилию отдельно имя и отдельно отчество, а потом ещё и инициалы надо)

Program Nadya18081998;
const n=20;
var
 f,i,o,ns:string;
begin
  write('Введите фамилию ');
  readln(f);
  write('Введите имя ');
  readln(i);
  write('Введите отчество ');
  readln(o);
  writeln('');
  writeln(' Фамилия: ',f);
  writeln('     Имя: ',i);
  writeln('Отчество: ',o);
  writeln('Инициалы: ',Copy(i,1,1)+Copy(o,1,1));
  writeln('');
end.