program exercise (input, output);

{You supply the declarations, and the procedures Insert and Delete.}

procedure ReadLine ( {You also supply the parameter declarations.} );
var
    i: integer;
    ch: char;
begin
    for i := 1 to LINESIZE do begin
	line [i] := ' ';
    end;
    writeln ('Please type a line of characters.');
    i := 0;
    while not eoln do begin
	i := i + 1;
	read (ch);
	if i <= LINESIZE then begin
	    line [i] := ch;
	end;
    end;
    readln;
end;

begin
    ReadLine (line);
    write ('Character to insert?  ');
    readln (ch);
    write ('Position to insert it?  ');
    readln (position);
    Insert (line, ch, position);
    writeln (line);
    write ('Position of character to delete?  ');
    readln (position);
    Delete (line, position);
    writeln (line);
end.