Составить описание класса для работы с цепными списками строк

var s:string;
st: array[1..100] of string;
a,b,c,i,n:integer;
begin
a:=0;
while s<>'exit' do begin
writeln('если хотите посмотреть весь список, то введите P');
writeln('Если хотите ввести новую строку введите V');
writeln('Если хотите удалить строку с известным ее значением(что в ней написано) D');
writeln('Если хотите строки начиная с какого-нибудь элемента введите N');
writeln('Если хотите выйти введите EXIT');
readln(s);
if (s='P')and(a<>0) then begin
for i:=1 to a do
writeln(i,' ',st[i]);
end;
if s='V' then begin
a:=a+1;
writeln('введите значение строки');
readln(st[a]);
end;
if (s='D')and(a<>0) then begin
writeln('Введите значение строки, которую нужно удалить');
readln(s);
for i:=1 to a do begin
if st[i]=s then begin
b:=i;
for c:=b to a do begin
st[c]:=st[c+1];
st[a]:='';
a:=a-1;
end;
end;
end;
if (s='N')and(a<>0) then begin
writeln('Введите номер эл-та, с которого нужно удалить');
readln(n);
if not(n>a) then begin
for i:=n to a do begin
st[i]:='';
a:=n;
end;
end;
end;
end;
end.