Написать программу по блок-схеме

var c, k:integer;
    ch:char;
 
label start;
 
begin
  //write('Текст');  
  read(ch);
  if (ch <> #0) then
  begin
    write(ch);
    if (ch = '.') then
    begin
      if(c = 3)then
        k:= k + 1;
      c:= 0;
    end
    else 
      if not(ch = ' ') then
        c:= c + 1;
    goto start;
  end
  else
  begin
    read(ch);
    if (ch = #50) then //или какой там код символа?
      goto start;
    write(k);
  end;
end.

label start;
...
goto start

goto метка;
 
label goback;
var num: real;
 
begin
    goback:
    write ('Введите число: ');
    readln (num);
 
    if num < 0 then
        goto goback;
 
    num := sqrt (num);
 
    write ('Квадратный корень: ', num:5:2);
 
readln
end.

type bool = 0..1;
 
const eoi = #119; //119 - код F8. Замените на любой другой при замене символа-конца ввода
    
begin
  var flag:bool;
  var c:char;
  var counter, cur:byte;
  counter:= 0;
  repeat
    read(c);
    cur:= 0;
    flag:= 0;
    if (c = ' ') then
    begin
      if (cur = 3) then
        flag:= 1;
      cur:= 0;
    end
    else if (c = '.') then
    begin
      if (flag = 1) then
        counter += 1;
      cur:= 0;
      flag:= 0;
    end
    else if (c <> eoi) then
      cur += 1;
  until (c = eoi);
  writeln(counter);
end.