Pascal Programozás valaki tud segíteni?

Ennyi az egész, ha első és utolsó karakter kell(és legalább 1 karakter a begépelt szöveg):

var

mondat:string;

begin

write('kerek egy mondatot:');

readln(mondat);

writeln('elso karakter: ',mondat[1]);

writeln('utolso karakter: ',mondat[length(mondat)]);

end.

Nem mindegy hogy utolsó betű vagy karakter kell, mert ha a mondat pl ? jelre végződik akkor az nem betű, viszont karakter.

pl. repeat until ciklussal.

Ami begin end. között van az egészet repeat until ciklusba kell rakni, kiírni a megfelelő kérdést és beolvasni egy stringbe a választ és a szerint ismételjük az egészet vagy sem.