Необходима программа на Pascal ABC NET: Есть четверостишие. Программа спрашивает пользователя и тот пишет какой-нибудь текст. После, юзер пишет номер строки и производится замена текста в строке на напечатанный юзером.
ПРИМЕЧАНИЕ: В программе НЕ НАДО использовать такой тип кода:

if choice = 1 then
writeln:text
writeln:'2222'
writeln:'3333'
writeln'4444'

Type  date = record    day: 1..31;     month: 1..12;         year: integer ;        end;var    a: date := (day: 8; month: 7; year: 2012);  b: date := (day: 6; month: 7; year: 2012);    c:integer;
procedure OutDate(d: date);begin  with d do writeln(day, '.', month, '.', year);end;begin if a.year > b.year then c:=1                     else c:=-1 ;                                         if a.year = b.year then                                         if  a.month > b.month then                                         c:=1                                                                   else c:=-1;                                                                       if a.year = b.year then                                                     if a.month = b.month then                                                        if a.day > b.day then c:=1                                                                          else c:=-1;  if a.year = b.year then                                                                 if a.month = b.month then                                                                     if a.day = b.day     then c:=0;                                                                                                                                                            OutDate(a);                                                                              OutDate(b);                                                                               writeln('otwet:', c);end.

Var s,tmp:string;
     i,n:integer;
     flag,word:boolean;
function letter (const let:char):boolean;
 begin
   if ((let>='a') and (let<='z')) or ((let>='A') and (let<='Z')) then letter:=true
     else letter:=false;
 end;
begin
  readln (s);
  s:=s+' ';
  n:=length(s);
  flag:=false;
  for i:=1 to n do
   begin
     if (letter(s[i])) and (not flag) then
      begin 
        flag:=true;
        tmp:='';
        word:=false;
      end else if (not letter(s[i])) and (flag) then
      begin 
       flag:=false;
       if (word) and (not (tmp='')) then writeln (tmp);
      end;
     if (flag) then
      begin 
        tmp:=tmp+s[i];
        if (s[i]='k') then word:=true;
      end; 
   end;
end.