После задания 8.04 консоль закрывается, хотя впереди еще задания и readln-ы

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, windows,Classes;
var
  a:Char;
  s,v:string;
  i,k,j:Integer;
  t:tstringlist;
begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
 
writeln('8.01: посчитать сколько раз встречается буква в строке');
write('введите строку:');
Readln(s);
write('введите букву:');
Readln(a);
k:=0;
for i:=1 to Length(s) do
begin
 if s[i]=a then k:=k+1;
end;
Writeln('буква '+a+' встречается ',k, ' раз');
Writeln('');
 
writeln('8.02 Заменить в данной строке все вхождения подстроки s на порядковый номер вхождения. Подстрока s вводится с клавиатуры.');
write('введите строку:');
Readln(s);
write('введите подстроку:');
Readln(v);
Writeln(''); //недоделал
 
writeln('8.04 В строке после каждого слова вставить запятую.');
write('введите строку:');
read(s) ;
t:=tstringlist.create;
t.Delimiter := ' ';
t.DelimitedText:=s;
s:='';
for i:=0 to t.Count-1 do
s:=s+t.strings[i]+', ';
writeln(s);
t.Free;
Writeln('');
//консоль закрывается , ответ вроде правильно выводит
Writeln('8.05 Дан список фамилий упорядочить их в алфавитном порядке.');
writeln('Введите список фамилий:')  ;
read(s);//считывания непроисходит
t:=TStringList.Create;
t.Sorted:=True;
t.Delimiter := ' ';
t.DelimitedText:=s;
for i:=0 to t.count-1 do
write(t[i]+' ') ;
 
 
read(s);
 
end.

var
  a:Char;
  s,v:string;
  i,k:Integer;
  t:tstringlist;
begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
 
writeln('8.01: посчитать сколько раз встречается буква в строке');
write('введите строку:');
Readln(s);
write('введите букву:');
Readln(a);
k:=0;
for i:=1 to Length(s) do
if s[i]=a then k:=k+1;
Writeln('буква '+a+' встречается ',k, ' раз');
Writeln;
 
writeln('8.02 Заменить в данной строке все вхождения подстроки s на порядковый номер вхождения. Подстрока s вводится с клавиатуры.');
write('введите строку:');
Readln(s);
write('введите подстроку:');
Readln(v);
Writeln; //недоделал
 
writeln('8.04 В строке после каждого слова вставить запятую.');
write('введите строку:');
readln(s) ;
t:=tstringlist.create;
t.Delimiter := ' ';
t.DelimitedText:=s;
s:='';
for i:=0 to t.Count-1 do
s:=s+t.strings[i]+', ';
writeln(s);
t.Free;
Writeln;
//консоль закрывается , ответ вроде правильно выводит
Writeln('8.05 Дан список фамилий упорядочить их в алфавитном порядке.');
writeln('Введите список фамилий:');
t:=TStringList.Create;
for i:=1 to 4 do
 begin
  readln(s);
  t.Add(s);
 end;
t.Sort;
writeln('Фамилии в алфавитном порядке');
for i:=0 to t.count-1 do
writeln(t[i]) ;
readln
 
end.