По общим правилам оформления машинописных работ и служебных документов после знаков препинания (,.:;!?) пробел обязателен. Составить программу, добавляющую недостающие пробелы — Pascal(Паскаль)

program p45;
  uses crt;
  var a,b: string;
      i:integer;
begin
  clrscr;
  write(' Исходный текcm = ');readln(a);
  i:=1;
  repeat
    b:=copy(a,i,1);
    if((b='.')or(b=',')or(b='!') or (b='?'))and (copy(a,i+1,1)<>' ')
    then a:=copy(a,1,i)+' ' + copy(a,i+1,length(a)-i);
    i:=i+1;
  until i>=length(a);
  writeln('a=',a);
  readln;
end.