Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 си

Var st: string;begin  write('строка:  ');    readln(st);  repeat    delete(st,1,1);    writeln(st);  until length(st)<2;end.