Ошибка Unteminated string

[Аелд]

program Project23;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var s:string;
    M:set of 'a'..'z';
    gl,sgl,i:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('Введите строку s:');
  readln(s);
  M:=[];
  for i := 1 to length(s) do
    if not (s[i] in M) then
    begin
      write(s[i]);
      M:=M+[s[i]];
    end;
    sgl:=0;
    gl:=0;
    for i := 1 to length(s) do
      if s[i] in ['a','e','i','o','y'] then
        gl:=gl+1 else
        sgl:=sgl+1;
        writeln('Число гласных букв gl= ',gl:4);
        writeln('Число согласных букв sgl= ',gl:4);
        readln;                                                                                       '
end.

[Аелд]

все.не заметил ' перед end

[Вадим Мошев]

Спасибо, что хоть код оформили...
Где, на какой строке возникает ошибка?

[Аелд]

Сообщение от Вадим Мошев

Спасибо, что хоть код оформили...
Где, на какой строке возникает ошибка?

Все,спасибо,помощь больше не нужна. Я заметил ошибку